<%@ Language=VBScript %> <% '********************************************************************************* 'Copyright Dundas Software Ltd. 2000. All Rights Reserved. ' 'PURPOSE: The user can send an html-based email to the specified ' recipients, and optionally specify a background audio file ' as well as a background picture for the email. The uploading ' is handled by the Upload control, while the mailing operation ' is handled by the Dundas Mailer Control 1.0. ' 'POST DESTINATION: ProcessEmail.asp. ' 'INPUT: SMTP server (optional), TO recipients, CC recipients, BCC ' recipients, From address, Subject of the message, the message ' body, optional background audio file and optional background ' image for the html-based email. ' 'COMMENTS: IMPORTANT: This demo requires the Dundas Mailer Control. ' Maximum amount of posted data is 2 Meg. ' A success message is displayed if the email is successfully ' sent. ' User will be redirected to the Error.asp page if the Dundas Mailer ' control is not installed and registered. ' 'Dundas Software Contact Information: ' Email: sales@dundas.com ' Phone: (800) 463-1492 ' (416) 467-5100 ' Fax: (416) 422-4801 '********************************************************************************* %>

This demo sends an html-based email to a specified destination address. You can select a background image as well as a background sound for the email.

The Upload control is used when embedding objects into the email. Please note that the maximum amount of data to be uploaded has been set to two (2) MBytes.

<% dim temp(5) 'used to populate form elements with values returned from ProcessEmail.asp 'check to see if an email was sent previously, if so output success/failure message if Request.QueryString("Success") = "TRUE" then Response.Write " The previous email was successfully sent to either the destination address or the SMTP relay server (if specified)." 'now grab the querystring parameter which stores the form's element values dim l for l = 1 to 6 temp(l - 1) = Request.QueryString("Value" & l) next else 'user loaded page for first time, so set temp. array to zero-length string values for l = 0 to 5 temp(l) = "" next end if %>

SENDING AN HTML EMAIL WITH EMBEDDED OBJECTS

SMTP Relay Server:
(Optional. Using a relay server will improve the performance of the operation.)

From:

*

To:
*

Cc:

Bcc:

Subject:

Background Picture:

Background Sound:

SMTP Relay Server: (Optional. Using a relay server will improve the performance of the operation.)
From:	*
To:	*
Cc:
Bcc:
Subject:
Background Picture:
Background Sound: