AspEmail is an active server component (COM Object) that enables your script to send email messages via any external SMTP server. The component supports multiple file attachments, multiple recipients, CCs, BCCs, and REPLY-TOs. More information can be found at:
http://www.aspemail.com
The following is a working sample of how this component works on our hosting accounts. Please note that we do not provide support for this sample. It is only provided as a guide to help you get started.
This is what the ASP code looks like:
<%
' Check to see if the "EmailTo" field as filled out, if it was, assume
' all other fields were filled out and try to send email
If Len(Request("EmailTo")) > 0 Then
' Instantiate the COM Object
Set Mail = Server.CreateObject("Persits.MailSender")
' This is the Active Server Internal SMTP Address
Mail.Host = " mail.yourdomain.com"
' This is the Active Server Internal SMTP Port
Mail.Port = "25"
' This is the FROM email ADDRESS
Mail.From = Request("EmailFrom")
' This is the FROM email NAME
Mail.FromName = Request("EmailFromName")
' This is the Reply To email address
Mail.AddReplyTo Request("ReplyTo")
' This is who the email will be sent to
Mail.AddAddress Request("EmailTo"), Request("EmailToName")
' This is the SUBJECT of the email
Mail.Subject = Request("Subject")
' This is the BODY of the email
Mail.Body = Request("Body")
' This is Error Checking and the "Mail.Send" is the actual action of sending the email
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
Else
Response.Write "Mail Sent Successfully."
End If
Else%>
<form name="form1">
<table>
<tr>
<td colspan="2"><b>ASPEmail Sample</b></td>
</tr>
<tr>
<td valign="top">Email From:</td>
<td><input type="text" name="EmailFrom"></td>
</tr>
<tr>
<td valign="top">Email From Name:</td>
<td><input type="text" name="EmailFromName"></td>
</tr>
<tr>
<td valign="top">Reply To:</td>
<td><input type="text" name="ReplyTo"></td>
</tr>
<tr>
<td valign="top">Email To:</td>
<td><input type="text" name="EmailTo"></td>
</tr>
<tr>
<td valign="top">Email To Name:</td>
<td><input type="text" name="EmailToName"></td>
</tr>
<tr>
<td valign="top">Subject:</td>
<td><input type="text" name="Subject"></td>
</tr>
<tr>
<td valign="top">Body:</td>
<td><textarea cols="40" rows="10" name="Body"></textarea></td>
</tr>
<tr>
<td></td>
<td><input type="submit" value="Send Email"></td>
</tr>
</table>
</form>
<%End If%>