Using the component is as simple as
- Creating the object
- Setting a few properties
- Calling the SendMail method
- Error Handling
- Completed Example
Creating the Object
The first step to using ASPMail is to create the object. This can be done with the following code:
<% Set Mailer = Server.CreateObject ("SMTPsvg.Mailer") %>
Setting the Properties
Typically you need to set five properties and call one method to define your message in ASPMail. The properties that you must set are:
FromName | The name that should be used for the Sender of the message.
Example: |
FromAddress | The e-mail address that should be used as the sender of the
message.
Example: |
Subject | This will be used as the Subject of the message
Example: |
BodyText | This will be the actual message
Example: |
RemoteHost | The SMTP server to be used for sending the message. Typically
this will be mail.rapidsite.net.
Example: |
The method that you must call is:
AddRecipient name, e-mail addr | This method add a name and e-mail address to the "To:"
field of the message
Example: |
Calling the SendMail Method
The SendMail method takes no properties, but does return True / False to indicate Success or Failure in sending the e-mail message.
Example 1
returnCode = Mailer.SendMail if returnCode = TRUE then ' Message sent sucessfully else ' Message send failure end if
The next example achieves the same result without using a variable for the return code.
Example 2
if Mailer.SendMail then ' Message sent sucessfully else ' Message send failure end if
Error Handling
Once we've called SendMail and have checked for a send failure we may want to know what the error condition was. ASPMail provides a Property called "Response" that contains a textual description of why the message was not sent. You could use this message to inform the user or write to a log file.
Example:
if Mailer.SendMail then ' Message sent sucessfully response.write ("Your message was sent") else ' Message send failure response.write ("Your message was not sent. ") response.write ("The error was: " & Mailer.Response) end if
Completed Example
<% Set Mailer = Server.CreateObject ("SMTPsvg.Mailer") Mailer.FromName = "Joe's Widgets Corp." Mailer.FromAddress = "sales@joeswidgets.com" Mailer.Subject = "Your Widget Order" Mailer.BodyText = "Your order was processed." Mailer.RemoteHost = "mail-out.rapidsite.net" Mailer.AddRecipient "John Smith", "jsmith@someisp.com" if Mailer.SendMail then ' Message sent sucessfully response.write ("Your message was sent") else ' Message send failure response.write ("Your message was not sent. ") response.write ("The error was: " & Mailer.Response) end if %>
Please note: the information on this page applies to ITS web hosting plans. It may or may not apply to other environments. If you are looking for a feature described here, or better support from your hosting provider, please consider hosting your site with ITS!
Copyright © 1996-2024, Integrated Technical Solutions, Inc., all rights reserved. See Terms/Legal for trademarks, copyright, and terms of use.
Naperville, IL 60563
fax 630.420.2771