|
How to send an email from my asp pages using dundas mailer?
|
This example demonstrats the using of dundas mail.
For more properties, options and fetaurs you can visit dundas site
************************************************************
Dim objEmail 'stores mailer control instance
'functions will throw an exception if not successful so On Error Resume Next is used for inline error trapping
On Error Resume Next
Set objEmail = Server.CreateObject("Dundas.Mailer") 'Mailer object
'add an Address object to the TOs collection (this specifies the destination address)
objEmail.TOs.Add "your@email.com"
'The email address of the person sending the email.
objEmail.FromAddress = "from@email.com"
'specify the message subject
objEmail.Subject = "Some Subject"
'If this property is set to TRUE and the client's user agent (email software) supports this feature then confirmation will be sent to the
'address in the email's From header when the 'email is retrieved by the recipient.
'objEmail.ReturnReceipt = TRUE
'If this property is set to TRUE and the recipient's user agent (email software) supports this feature then a confirmation email will be sent
'when the email is read by the recipient.
'objEmail.ConfirmRead = TRUE
'specify an SMTP server. Doing this increases the speed and reliability of the mail operation
objEmail.SMTPRelayServers.Add "your smtp server"
'There is another way to do that . This way is designated for times when the server is supposed to recived the mail, request that the email
'will be send from a valid sender smtp server. To use this way it is required that there is a user defined in the admin control panel.
'objEmail.SMTPRelayServers.Add "mail.yourdomain.com", 25, "mail.yourdomain.com", "yourusername","password"
'This property determines the character set to be used for the text-based body of the email.
'objEmail.BodyCharSet = [string]
'set the message body
'objEmail.Body = "ωμεν"
'now send the email
objEmail.SendMail
'test for success/failure of the SendMail operation using VBScript's Err object
If Err.Number <> 0 Then
'an error occurred so output the relevant error string
Response.Write "The following error occurred: " & Err.Description
Else
'successful, so output a success message to user
Response.Write "The email was successfully forwarded to the specified SMTP server."
End If
Set objEmail = Nothing 'release resources
************************************************************
|
|
|
