Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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>Se retirarmos essa linha o script envia o email normal em html.
Carregando comentários...