<!-- This example uses the Persits Software AspEmail component
to send SMTP email with an optional file attachment.-->
<HTML>
<BODY BGCOLOR=\"#FFFFFF\">
<%
\' Capture an uploaded file
Set Upload = Server.CreateObject(\"Persits.Upload\")
Upload.IgnoreNoPost = True \' suppress \"Nothing has been posted\" error
Count = Upload.Save(\"c:\\upload\")
\' Send mail
If Upload.Form(\"Send\") <> \"\" Then
Set Mail = Server.CreateObject(\"Persits.MailSender\")
Mail.Host = \"mail.atlantech.net\" \' replace that with your own host
Mail.From = Upload.Form(\"From\")
Mail.AddAddress Upload.Form(\"To\")
Mail.Subject = Upload.Form(\"Subject\")
Mail.Body = Upload.Form(\"Body\")
If Count > 0 Then Mail.AddAttachment Upload.Files(1).Path
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write \"Error occurred when trying to send mail: <B>\" & Err.Description & \"</B>\"
Else
Response.Write \"Success! Message was sent.\"
End If
End If
%>
<h2>Sending Mail with an Attachment using AspEmail</h2>
<FORM METHOD=\"POST\" ENCTYPE=\"multipart/form-data\" ACTION=\"SendMailWithAttachment.asp\">
<TABLE>
<TR><TD>Mail From (enter address): </TD><TD><INPUT TYPE=\"TEXT\" NAME=\"From\"></TD></TR>
<TR><TD>Mail To (enter address): </TD><TD><INPUT TYPE=\"TEXT\" NAME=\"To\"></TD></TR>
<TR><TD>Subject: </TD><TD><INPUT TYPE=\"TEXT\" NAME=\"Subject\"></TD></TR>
<TR><TD>Body: </TD><TD><TEXTAREA NAME=\"Body\"></TEXTAREA></TD></TR>
<TR><TD>Attachment:</TD><TD><INPUT TYPE=FILE NAME=\"ATTACHMENT\"></TD></TR>
<TR><TD COLSPAN=2><INPUT TYPE=SUBMIT VALUE=\"Send Mail\"></TD></TR>
</TABLE>
<INPUT TYPE=HIDDEN NAME=\"Send\" VALUE=\"Send\">
</FORM>
</BODY>
</HTML>
