Dim objMsg
Dim objConfig
Set objMsg = CreateObject(“CDO.Message”)
Set objConfig = CreateObject(“CDO.Configuration”)
Dim objFields
Set objFields = objConfig.Fields
‘ Setup server information. Comment out if using localhost
objFields(“https://schemas.microsoft.com/cdo/configuration/smtpserver”) = “mail.mysmtpserver.com”
objFields(“https://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25
objFields(“https://schemas.microsoft.com/cdo/configuration/sendusing”) = 2

‘ Setup server login information if your server require it. Comment out if using localhost
objFields(“https://schemas.microsoft.com/cdo/configuration/smtpauthenticate”) = 1
objFields(“https://schemas.microsoft.com/cdo/configuration/sendusername”) = “SMTPAUTHUser”
objFields(“https://schemas.microsoft.com/cdo/configuration/sendpassword”) = “SMTPAUTHPassword”

‘uncomment if using localhost.
‘objFields(“https://schemas.microsoft.com/cdo/configuration/sendusing”) = 1
‘objFields(“https://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory”)=”c:\inetpub\mailroot\pickup”

objFields.Update

‘ Now you can setup message to send
Set objMsg.Configuration = objConfig
objMsg.To = “tosomeone@somewhere.com”
objMsg.From = “fromme@domain.com”
objMsg.Subject = “Some subject”
objMsg.TextBody = txMessage

objMsg.Send
set objMsg = NOTHING

The post How do I use CDOSYS? appeared first on Hivelocity Hosting.