Migrating CDONTS e-mail to Windows 2003 Server

The implementation of the CDONTs e-mail method used in asp has changed in Windows 2003 server.

Example old CDONTS implementation

Set m1 = CreateObject("CDONTS.NewMail")
m1.From = fromAddr
m1.To = recipients
m1.Subject = subject
m1.Body = CStr("" & body)
m1.Send

The code below is an example of the new cdo format.

Set objErrMail= Server.CreateObject("CDO.Message")
With objErrMail
.From = fromAddr
.To = recipients
.Subject = subject
.HTMLBody = CStr("" & body)
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "myWebServer.com"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
.Send
End With

Note the sendusing schema has options as follows:

1. use localhost
2. use specified mail server

In our experience a value of 1 is simpler to configure.

The code below has been used to send e-mails via a remote SMTP server. Note the first line omits the word "server" as this is run as a local vbscript.

Set objErrMail=CreateObject("CDO.Message")
With objErrMail
.From = myaddress@myaddress.com
.To = myfriend@hisaddress.com
.Subject = "Type in your subject here"
.HTMLBody = "<h1> Type in the body of your message here </h1>"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'use 1 for local or 2 for remote smtp server
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.myserveraddress.com" 'enter your smtp server
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'port number 25 is standard
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'use 0 for no auth, 1 for basic
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "myusername" ' enter your email username
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mypassword" 'enter email password
.Configuration.Fields.Update
.Send
End With

NAT January 2007 (Revised)