CDO SendMail Script

email = "[email protected]"
'check for email address...
if (email <> "") then 'need an email addy

Set Mail = Server.CreateObject("CDO.Message")

Mail.Configuration.Fields.Item ("") = 2 'Send the message using the network (SMTP over the network).
Mail.Configuration.Fields.Item ("") = "" 'SMTP link to your server
Mail.Configuration.Fields.Item ("") = ***Port ID*** 'SMTP Port
Mail.Configuration.Fields.Item ("") = 1 'Use SSL for the connection
Mail.Configuration.Fields.Item ("") = 60

Mail.Configuration.Fields.Item ("") = 1 'basic (clear-text) authentication
Mail.Configuration.Fields.Item ("") = "[email protected]" 'email account actually sent from
Mail.Configuration.Fields.Item ("") = "password" 'password for email account from above


Mail.From = "[email protected]" 'email you want it to be sent from

Mail.To = "[email protected]" 'email you want it sent to

Mail.HTMLBody = "Body Content Goes Here" 'content ofemail

Mail.Subject = "Subject" 'subject of email

On Error Resume Next

if Err <> 0 Then
Response.Write "<font color=red size=+1>An error occurred while sending the email....</font>"
response.write("Thank you.") 'Thank you for sending email
end if 'error
response.write("No Email submitted. Please try again") 'Need email to send to to process
end if 'need an email