Fiz um código baseado no exemplo do manual do aspemail e aspupload para enviar um email com anexo. O anexo vai para o servidor, mas não consigo mandar o email, da o seguinte erro:
Persits.MailSender.4 (0x800A0019)
Software caused connect abort.
/mail/aspemailatt.asp
<%
strHost = "smtp.gamajr.com.br"
Set Upload = Server.CreateObject("Persits.Upload")
Upload.IgnoreNoPost = True
Upload.Save "C:\upload"
If Upload.Form("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.From = "web@gamajr.com.br"
Mail.FromName = "Attachment Demo"
Mail.Host = strHost
Mail.Subject = Upload.Form("Subject")
Mail.Body = Upload.Form("Body")
Mail.AddAddress Upload.Form("To")
If Not Upload.Files("Attachment") Is Nothing Then
Mail.AddAttachment Upload.Files("Attachment").Path
End If
Mail.Send
Response.Write "Success!"
End If
%>
<HTML>
<BODY BGCOLOR="#FFFFFF">
<!-- Note special ENCTYPE attribute: it is necessary to upload a file-->
<FORM METHOD="POST" ACTION="aspemailatt.asp" ENCTYPE="multipart/form-data">
<TABLE CELLSPACING=0 CELLPADDING=0>
<TR><TD>Enter email:</TD><TD><INPUT TYPE="TEXT" NAME="To"></TD></TR>
<TR><TD>Enter Subject:</TD><TD><INPUT TYPE="TEXT" NAME="Subject"></TD></TR>
<TR><TD>Enter Body:</TD><TD><TEXTAREA NAME="Body"></TEXTAREA></TD></TR>
<TR><TD>Select File Attachment:</TD><TD><INPUT TYPE=FILE NAME="Attachment"></TD></TR>
<TR><TD COLSPAN=2><INPUT TYPE=SUBMIT NAME="Send" VALUE="Send"></TD></TR>
</TABLE>
</FORM>
</BODY>
</HTML>
Pergunta
luka_lua
Fiz um código baseado no exemplo do manual do aspemail e aspupload para enviar um email com anexo. O anexo vai para o servidor, mas não consigo mandar o email, da o seguinte erro:
Persits.MailSender.4 (0x800A0019)
Software caused connect abort.
/mail/aspemailatt.asp
<% strHost = "smtp.gamajr.com.br" Set Upload = Server.CreateObject("Persits.Upload") Upload.IgnoreNoPost = True Upload.Save "C:\upload" If Upload.Form("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") Mail.From = "web@gamajr.com.br" Mail.FromName = "Attachment Demo" Mail.Host = strHost Mail.Subject = Upload.Form("Subject") Mail.Body = Upload.Form("Body") Mail.AddAddress Upload.Form("To") If Not Upload.Files("Attachment") Is Nothing Then Mail.AddAttachment Upload.Files("Attachment").Path End If Mail.Send Response.Write "Success!" End If %> <HTML> <BODY BGCOLOR="#FFFFFF"> <!-- Note special ENCTYPE attribute: it is necessary to upload a file--> <FORM METHOD="POST" ACTION="aspemailatt.asp" ENCTYPE="multipart/form-data"> <TABLE CELLSPACING=0 CELLPADDING=0> <TR><TD>Enter email:</TD><TD><INPUT TYPE="TEXT" NAME="To"></TD></TR> <TR><TD>Enter Subject:</TD><TD><INPUT TYPE="TEXT" NAME="Subject"></TD></TR> <TR><TD>Enter Body:</TD><TD><TEXTAREA NAME="Body"></TEXTAREA></TD></TR> <TR><TD>Select File Attachment:</TD><TD><INPUT TYPE=FILE NAME="Attachment"></TD></TR> <TR><TD COLSPAN=2><INPUT TYPE=SUBMIT NAME="Send" VALUE="Send"></TD></TR> </TABLE> </FORM> </BODY> </HTML>O erro é no Mail.send
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.