WSH CDO Email

[jeremychin]

Am trying to run the following code:

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message"
objMessage.Sender = "webdesign@cre8ions.com"
objMessage.To = "webdesign@cre8ions.com"
objMessage.TextBody = "This is some sample message text."
objMessage.Send

Error I'm getting:
The send using configuration is invalid.

I'm brand new to CDO so I have no idea what's causing the error here. I'm on a Windows XP box with Outlook installed. Any help would be greatly appreciated.

[bwcc]

Since your machine isn't hosting SMTP traffic, I believe you would have to specify a remote SMTP server.

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.your.com"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "youruserid"

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yourpassword"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25