Send Email from a Script using CDO

Here is a code snippet of a 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 = "Sample Message"
 objEml.Textbody = "Test Message from Test User"
 objEml.Send
 Msgbox "Mail Sent!!"

Please note that the script will work only where SMTP Service has been installed.

Comments

  • Anonymous
    November 16, 2007
    The comment has been removed
  • Anonymous
    December 10, 2007
    Contrary to popular belief, the end of the year is one of the best times to look for, awesome descion