SMTPMail 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 and logging. More information can be found at:
http://fileup.softartisans.com/fileup-276.aspx
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:
<%@ LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD>
<TITLE>SMTPMail Sample </TITLE>
</HEAD>
<BODY>
<Center>
<H2>SMTPMail sample: Send email using SMTPMail with Common Properties</H2></center>
<% If Request.ServerVariables("Request_Method") <> "POST" Then %>
<p> </p>
<P align="Center">This example uses username, password, log file, reply-to, priority and urgent properties of SMTPMail.
You are also able to use carbon copy properties.
</p>
<form ACTION="<%=Request.ServerVariables("Script_Name")%>" METHOD="POST" id=form1 name=form1>
<TABLE>
<TR>
<TD>To:</TD>
<TD><INPUT TYPE="TEXT" SIZE="30" NAME="toaddr" value="someone@somehost.com"></TD>
</TR>
<TR>
<TD>Cc:</TD>
<TD><INPUT TYPE="TEXT" SIZE="30" NAME="ccaddr" value="someone@somehost.com"></TD>
</TR>
<TR>
<TD>Bcc:</TD>
<TD><INPUT TYPE="TEXT" SIZE="30" NAME="bccaddr" value="someone@somehost.com"></TD>
</TR>
<TR>
<TD>Subject:</TD>
<TD><INPUT TYPE="TEXT" SIZE="50" NAME="subj" VALUE="Re: "></TD>
</TR>
<TR>
<TD>From:</TD>
<TD><INPUT TYPE="TEXT" SIZE="50" NAME="fromaddr" value="somebody@anyhost.com"></TD>
</TR>
<TR>
<TD> Body </TD>
<TD><TEXTAREA COLS="80" ROWS="20" NAME="body" WRAP=virtual >put your message body here
</TEXTAREA></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD>Reply-To:</TD>
<TD><INPUT TYPE="TEXT" NAME="replyto" SIZE="30" value="somebody@anyhost.com"></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD>Log FileName <b>: </b></TD>
<TD> smtplog.txt
Enable Log
<INPUT TYPE="checkbox" NAME="smtplog" ></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD> Priority: </TD>
<TD>
<INPUT TYPE=RADIO NAME="prior" VALUE="high" > High
<INPUT TYPE=RADIO NAME="prior" VALUE="medium" CHECKED> Medium
<INPUT TYPE=RADIO NAME="prior" VALUE="low">Low
</TD>
</TR>
<TR>
<TD> Urgent: </TD>
<TD> <input type="checkbox" name="speed" > </TD>
</TR>
<TR>
<TD COLSPAN="2"><CENTER><INPUT TYPE="SUBMIT" NAME="SEND" VALUE="Send the e-mail"></CENTER></TD>
</TR>
</TABLE>
</FORM>
</CENTER>
<% Else
rem -------------------------------------------------
rem - Instantiate the SoftArtisans SMTP mailer object
rem -------------------------------------------------
Set mailer = Server.CreateObject("SoftArtisans.SMTPMail")
rem ------------------------------------
rem - Get version number
rem ------------------------------------
strVer = Mailer.Version
rem ------------------------------------
rem - Set the Remote Host (SMTP) Host
rem - that we'll send this mail thru
rem ------------------------------------
mailer.RemoteHost = " mail.yourdomain.com"
Rem -----------------------------------------
Rem - Change the following FromName and Address
Rem--------------------------------------------
if Request.form("fromaddr")<>"" Then
mailer.FromAddress = Request.form("fromaddr")
end if
rem ------------------------------------
rem - set the recipient's address
rem - that this message will go to
rem ------------------------------------
if Request.form("toaddr")<>"" Then
mailer.AddRecipient "" , Request.form("toaddr")
end if
if Request.form("ccaddr")<>"" Then
mailer.Addcc "" , Request.form("ccaddr")
end if
if Request.form("bccaddr")<>"" Then
mailer.AddBcc "" , Request.form("bccaddr")
end if
rem ------------------------------------
rem - Set the message body text
rem ------------------------------------
mailer.BodyText = Request.form("body")
mailer.Subject = Request.form("subj")
strPath = Server.MapPath(".")
if Request.form("smtplog")="on" Then
mailer.smtplog = strPath & "\smtplog.txt"
end if
if request.form("prior")="high" Then
mailer.priority=1
end if
if request.form("prior")="medium" Then
mailer.priority=3
end if
if request.form("prior")="low" Then
mailer.priority=5
end if
if request.form("speed")="on" Then
mailer.urgent=True
end if
if request.form("replyto")<>"" Then
mailer.ReplyTo = request.form("replyto")
end if
rem ----------------------------------------------------
rem -- Sends the message and verify if it has been sent.
rem -----------------------------------------------------
If mailer.SendMail then
Response.Write "<P> Mail sent."
if Request.form("smtplog")="on" Then
Response.Write "<P> The path of created log file is : " & strPath & "\smtplog.txt"
end if
Else
Response.Write "<p>Mail failure." & mailer.response
End If
End If %>
<BR>
</BODY>
</HTML>
<HTML>
<HEAD>
<TITLE>SMTPMail Sample </TITLE>
</HEAD>
<BODY>
<Center>
<H2>SMTPMail sample: Send email using SMTPMail with Common Properties</H2></center>
<% If Request.ServerVariables("Request_Method") <> "POST" Then %>
<p> </p>
<P align="Center">This example uses username, password, log file, reply-to, priority and urgent properties of SMTPMail.
You are also able to use carbon copy properties.
</p>
<form ACTION="<%=Request.ServerVariables("Script_Name")%>" METHOD="POST" id=form1 name=form1>
<TABLE>
<TR>
<TD>To:</TD>
<TD><INPUT TYPE="TEXT" SIZE="30" NAME="toaddr" value="someone@somehost.com"></TD>
</TR>
<TR>
<TD>Cc:</TD>
<TD><INPUT TYPE="TEXT" SIZE="30" NAME="ccaddr" value="someone@somehost.com"></TD>
</TR>
<TR>
<TD>Bcc:</TD>
<TD><INPUT TYPE="TEXT" SIZE="30" NAME="bccaddr" value="someone@somehost.com"></TD>
</TR>
<TR>
<TD>Subject:</TD>
<TD><INPUT TYPE="TEXT" SIZE="50" NAME="subj" VALUE="Re: "></TD>
</TR>
<TR>
<TD>From:</TD>
<TD><INPUT TYPE="TEXT" SIZE="50" NAME="fromaddr" value="somebody@anyhost.com"></TD>
</TR>
<TR>
<TD> Body </TD>
<TD><TEXTAREA COLS="80" ROWS="20" NAME="body" WRAP=virtual >put your message body here
</TEXTAREA></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD>Reply-To:</TD>
<TD><INPUT TYPE="TEXT" NAME="replyto" SIZE="30" value="somebody@anyhost.com"></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD>Log FileName <b>: </b></TD>
<TD> smtplog.txt
Enable Log
<INPUT TYPE="checkbox" NAME="smtplog" ></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD> Priority: </TD>
<TD>
<INPUT TYPE=RADIO NAME="prior" VALUE="high" > High
<INPUT TYPE=RADIO NAME="prior" VALUE="medium" CHECKED> Medium
<INPUT TYPE=RADIO NAME="prior" VALUE="low">Low
</TD>
</TR>
<TR>
<TD> Urgent: </TD>
<TD> <input type="checkbox" name="speed" > </TD>
</TR>
<TR>
<TD COLSPAN="2"><CENTER><INPUT TYPE="SUBMIT" NAME="SEND" VALUE="Send the e-mail"></CENTER></TD>
</TR>
</TABLE>
</FORM>
</CENTER>
<% Else
rem -------------------------------------------------
rem - Instantiate the SoftArtisans SMTP mailer object
rem -------------------------------------------------
Set mailer = Server.CreateObject("SoftArtisans.SMTPMail")
rem ------------------------------------
rem - Get version number
rem ------------------------------------
strVer = Mailer.Version
rem ------------------------------------
rem - Set the Remote Host (SMTP) Host
rem - that we'll send this mail thru
rem ------------------------------------
mailer.RemoteHost = " mail.yourdomain.com"
Rem -----------------------------------------
Rem - Change the following FromName and Address
Rem--------------------------------------------
if Request.form("fromaddr")<>"" Then
mailer.FromAddress = Request.form("fromaddr")
end if
rem ------------------------------------
rem - set the recipient's address
rem - that this message will go to
rem ------------------------------------
if Request.form("toaddr")<>"" Then
mailer.AddRecipient "" , Request.form("toaddr")
end if
if Request.form("ccaddr")<>"" Then
mailer.Addcc "" , Request.form("ccaddr")
end if
if Request.form("bccaddr")<>"" Then
mailer.AddBcc "" , Request.form("bccaddr")
end if
rem ------------------------------------
rem - Set the message body text
rem ------------------------------------
mailer.BodyText = Request.form("body")
mailer.Subject = Request.form("subj")
strPath = Server.MapPath(".")
if Request.form("smtplog")="on" Then
mailer.smtplog = strPath & "\smtplog.txt"
end if
if request.form("prior")="high" Then
mailer.priority=1
end if
if request.form("prior")="medium" Then
mailer.priority=3
end if
if request.form("prior")="low" Then
mailer.priority=5
end if
if request.form("speed")="on" Then
mailer.urgent=True
end if
if request.form("replyto")<>"" Then
mailer.ReplyTo = request.form("replyto")
end if
rem ----------------------------------------------------
rem -- Sends the message and verify if it has been sent.
rem -----------------------------------------------------
If mailer.SendMail then
Response.Write "<P> Mail sent."
if Request.form("smtplog")="on" Then
Response.Write "<P> The path of created log file is : " & strPath & "\smtplog.txt"
end if
Else
Response.Write "<p>Mail failure." & mailer.response
End If
End If %>
<BR>
</BODY>
</HTML>