Enviar E-mail com Anexo

[Neto Diniz 0]

Boa tarde,

 

Alguém poderia me ajudar como eu posso fazer para enviar um email com anexo. Eu preciso fazer um upload completo antes e depois atachar o arquivo, como eu posso fazer? Pode ser em ASPEmail ou ASPMail.

 

Obrigado,

 

Neto Diniz.

[hargon 64]

O Upload deve ser feito usando Dundas.Upload, ASPUPLOAD, Código de upload sem componente, entre outras formas.

 

Só depois do Upload você anexa ao e-mail e envia.

[Neto Diniz 0]

O Upload deve ser feito usando Dundas.Upload, ASPUPLOAD, Código de upload sem componente, entre outras formas.

 

Só depois do Upload você anexa ao e-mail e envia.

 

Bom dia,

 

Hargon eu fiz o upload já... está mandando o arquivo para a pasta corretamente mas nao estou conseguindo anexar o arquivo.... será que poderia me ajudar por gentileza. Estou fazendo assim:

 

Set Upload = Server.CreateObject("Persits.Upload.1")

	Upload.OverwriteFiles = False
	On Error Resume Next

	Upload.SetMaxSize 1048576	' Limit files to 1MB
	Count = Upload.Save("D:\http\poliacoengenhari\web\imagens_site\orcamento\")

	nome_var	   = Upload.Form("nome")
	empresa_var	= Upload.Form("empresa")
	endereco_var   = Upload.Form("endereco")
	email_var	  = Upload.Form("email")
	telefone_var   = Upload.Form("telefone")
	cidade_var	 = Upload.Form("cidade")
	mensagem_var   = Upload.Form("mensagem")
	arquivo_var	= Upload.Form("file1")
	
	Set oMail = Server.CreateObject("SMTPsvg.Mailer")
	
	oMail.RemoteHost = "localhost"
	
	site_var = "http://www.poliacoengenharia.com.br/"
'	site_var = "/poliaco/"

	oMail.ContentType = "text/html"	
	
	oMail.FromName = nome_var
	oMail.FromAddress = email_var
	oMail.AddAttachment "D:\http\poliacoengenhari\web\imagens_site\orcamento\" & arquivo_var

Obrigado,

 

Neto Diniz.

[hargon 64]

Alguma mensagem de erro? Verifique se o caminho está correto.

[Neto Diniz 0]

Alguma mensagem de erro? Verifique se o caminho está correto.

Nenhuma mensagem de erro Hargon.... o arquivo está indo para o caminho correto... apenas nao está anexando.... ele envia o email certinho eu recebo mas sem o anexo.

[hargon 64]

Acima da linha que declara o componente de Envio, coloque:

 

Response.Write "D:\http\poliacoengenhari\web\imagens_site\orcamento\" & arquivo_var
Response.End

Poste o resultado.

[Neto Diniz 0]

Acima da linha que declara o componente de Envio, coloque:

 

Response.Write "D:\http\poliacoengenhari\web\imagens_site\orcamento\" & arquivo_var
Response.End

Poste o resultado.

Hargon eu consegui fazer ele vim anexado o email... mas teve outro problema... a imagem de cabeçalho do email não aparece dá erro ao mostrar ela.... e é por causa do oMail.AddAttachment... pois eu tiro ele e funciona normalmente será que tenho que mostrar a imagem de outra maneira... estou fazendo assim

 

<img src=http://www.teste.com.br/imagens/topo_email2.gif />

 

Obrigado.

[hargon 64]

Estranho esse erro. Acrescente aspas aí para testar.

[Neto Diniz 0]

Estranho esse erro. Acrescente aspas aí para testar.

Hargon eu fiz... não deu certo oq eu pude notar também é que ele nao pega nem a css então será que não tem que usar algum tipo de codificação?

 

Obrigado.