Set msg   = WScript.CreateObject("CDO.Message")
msg.From   = "myname@mydomain.com"
msg.To    = "someone@somedomain.com"
msg.Subject = "testing"
msg.TextBody = "This is a test message body."

msg.Configuration.Fields("http://schemas.microsoft.com/
cdo/configuration/smtpserver") = "smtpserver.mydomain.com"

msg.Configuration.Fields("http://schemas.microsoft.com/
cdo/configuration/sendusing") = 2

msg.Configuration.Fields.Update
msg.Send