Articles in this section

See more

SMTPMail sample.

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>&nbsp;</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>&nbsp; smtplog.txt
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;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>

Related articles