page410.vbs

Apress - Managing Enterprise Systems With The Windows Script Host Source Code

Dim objMail
Set objMail = CreateObject("CDO.Send")
objMail.Profile = "My Profile" 'set the profile you want to use
If objMail.Logon() Then
 objMail.NewMessage 
 objMail.AddRecipient ("SMTP:[e-mail]")
 objMail.Message = "Hello Fred" 
 objMail.Subject = "Message to Fred"
 objMail.Send 
 objMail.Logoff 
End iIf