Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

4.b

Como enviar email no formato HTML?

Por , em ASP Clássico

Recommended Posts

4.b    0

4.b
Postado

O script abaixo depois que passei a enviar o anexo ele parou de enviar o email no formato HTML...

Alguem já passou por isso e conseguiu resolver... pode me ajudar?

 

Obrigado.

 

 

<%
  Set Upload = Server.CreateObject("SoftArtisans.FileUp")
  If Trim(Upload.Form("email")) <> "" Then
  
	If Upload.Form("file") <> "" Then
	  Upload.Path = Server.MapPath("./upload") 'local onde será gravado o arquivo
	  Upload.Form("File").Save
	  Session("arquivo") = Upload.Form("File").ServerName 'recupera o nome do arquivo no servidor
	End If

	Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
	Mailer.FromName = Upload.Form("Nome")
	Mailer.FromAddress = Upload.Form("email")
	Mailer.RemoteHost = "localhost"
	Mailer.Recipient  = "contato@email.com.br"
	Mailer.Subject = "E-mail teste"
	Mailer.ContentType = "text/html"
	If Upload.Form("file") <> "" Then
	  Mailer.AddAttachment(Session("Arquivo")) 
	End If

	Mailer.BodyText = "<html><body><b>Nome:</b> " & Upload.Form("nome") & vbcrlf
	Mailer.BodyText = "<br><b>Assunto:</b> " & Upload.Form("assunto") & vbcrlf
	Mailer.BodyText = "<br><b>Email:</b> " & Upload.Form("email") & vbcrlf
	Mailer.BodyText = "</body></html>" & vbcrlf
	
	Mailer.SendMail
	
	Response.Write "Email enviado!"
	
	Session("arquivo") = ""
	Set Upload = Nothing

  Else	
%>
  <form action="teste2.asp" method="post" enctype="multipart/form-data">
	Nome: <input type="text" size="38" name="nome"><br>
	Assunto: <input type="text" size="38" name="assunto"><br>
	Email: <input type="text" size="38" name="email"><br>
	Arquivo: <input name="file" type="file" size="40"><br>
	<input type="submit" name="enviar" value="enviar">
  </form>
<%
  End If
%>

O problema está quando temos a linha Mailer.AddAttachment(Session("Arquivo"))

Se retirarmos essa linha o script envia o email normal em html.

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Como já havia explicado em outro tópico seu, a propriedade AddAttachment anula a propriedade ContentType deixando assim com o valor default, que é sem html.

 

Melhor você usar outro componente, como o CDOSYS por exemplo.

Compartilhar este post

Link para o post
Compartilhar em outros sites

juliano11    0

juliano11
Postado

Tenta fazer assim:

Esse código pega uma página e envia no formato que você fizer..

 

Set objMessage = CreateObject("CDO.Message")

objMessage.Subject = "Assunto"

objMessage.From = seu_email

objMessage.To = email_amigo

objMessage.CreateMHTMLBody "http://www.seusite.com.br/pagina.asp

objMessage.Send

Set objMessage = Nothing

 

Qq coisa, posta ai..

 

Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito