Set objEmail = CreateObject("CDO.Message") objEmail.From = "mail id" objEmail.To = "mail id" objEmail.Subject = "Service Is Down" objEmail.Textbody = "The Service ### has stopped." objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ "smtp.Gmail.com" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 143 objEmail.Configuration.Fields.Update objEmail.Send
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)