Here is a code snippet script that uses CDO to send email from a computer.


Set objEml = CreateObject("CDO.Message")
objEml.From = "testuser@admin.com"
objEml.To = "sampleuser@admin.com"
objEml.Subject = "Test Mail"
objEml.Textbody = "Oops...You got the Mail!!"
objEml.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEml.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtpserver"
objEml.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEml.Configuration.Fields.Update
objEml.Send
Msgbox "Mail Sent!"


Please note that,
1) Replace the name SSN with SMTP server name
2) The script will work where the SMTP Service has not been installed