Enviar anexo com o Persits.MailSender

[feasso 0]

Como faço para enviar o arquivo anexo ou informar a URL de onde ele está localizado no servidor ???

 

Tenho este código:

Set upl = Server.CreateObject("SoftArtisans.FileUp") %> 
	<% upl.Path = "e:\home\emciencia\web\2008\Arquivos\Artigos\" %> 
	<% upl.Save 
	
	response.Write(upl.Form("anexo"))
	response.End()
	
	logradouro = upl.Form("logradouro")

	varTexto = varTexto& "<font size='2' face='Arial, Helvetica, sans-serif'>Nome: " & upl.Form("cliNome") & "</font><br>"
	varTexto = varTexto& "<font size='2' face='Arial, Helvetica, sans-serif'>E-mail: " & upl.Form("cliEmail") & "</font><br>"
	varTexto = varTexto& "<font size='2' face='Arial, Helvetica, sans-serif'>cliNumero: " & upl.Form("cliNumero") & "</font><br>"
	varTexto = varTexto& "<font size='2' face='Arial, Helvetica, sans-serif'>Telefone: " & upl.Form("cliTelefone") & "</font><br>"
	varTexto = varTexto& "<font size='2' face='Arial, Helvetica, sans-serif'>Celular: " & upl.Form("cliCelular") & "</font><br>"
	varTexto = varTexto& "<font size='2' face='Arial, Helvetica, sans-serif'>Endereço: " & logradouro & ", " & upl.Form("cliNumero") & " - " & upl.Form("bairro") & "</font><br>"
	varTexto = varTexto& "<font size='2' face='Arial, Helvetica, sans-serif'>Cidade: " & upl.Form("localidade") & " - " & upl.Form("uf") & "</font><br>"
	varTexto = varTexto& "<font size='2' face='Arial, Helvetica, sans-serif'>Arquivo: "
	varTexto = varTexto& "<strong></strong><a href='http://www.emciencia.com.br/2008/Arquivos/artigos/"&Anexo&"'> LINK  </a></font><br>"

[Ted k' 126]

o anexo você envia primeiro para o servidor e o link é só colocar na variável varTexto:

http://forum.imasters.com.br/index.php?showtopic=294777

 

então funciona assim, você resgata o nome do arquivo, pode ser assim como tem nesse link:

http://tedk.com.br/blog/index.php/2008/06/...-em-campo-file/

 

e depois coloca no link desejado