E-mail Scripts
Sending Email from a ScriptSending Email without Installing the SMTP Service
Sending Email from a Script
Demonstration script that uses CDO to send email from a computer where the SMTP Service has been installed.
Set objEmail = CreateObject("CDO.Message") objEmail.From = "monitor1@fabrikam.com" objEmail.To = "admin1@fabrikam.com" objEmail.Subject = "Atl-dc-01 down" objEmail.Textbody = "Atl-dc-01 is no longer accessible over the network." objEmail.Send
Sending Email without Installing the SMTP Service
Demonstration script that uses CDO to send email from a computer where the SMTP Service has not been installed. Replace the name smarthost with the name of your SMTP server.
Set objEmail = CreateObject("CDO.Message") objEmail.From = "admin1@fabrikam.com" objEmail.To = "admin2@fabrikam.com" objEmail.Subject = "Server down" objEmail.Textbody = "Server1 is no longer accessible over the network." objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ "smarthost" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update objEmail.Send