Const EmailFrom = "______@___________.ru"      ' от кого будет отправляться e-mail
 Const EmailPassword = "___"          ' пароль от e-mail
 Const strSmtpServer = "smtp.yandex.ru"  ' smtp сервер
 Const EmailTo = "_________@________.ru"      ' Кому будет отправляться e-mail
 Set objEmail = CreateObject("CDO.Message")


objEmail.From = EmailFrom
 objEmail.To = EmailTo
 objEmail.Subject = "The server is running OK"
 objEmail.Textbody = "The server is running OK"
 objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
 objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = EmailFrom
 objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = EmailPassword
 objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmtpServer
 objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
 objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
 objEmail.Configuration.Fields.Update
 objEmail.Send
 WScript.Quit