Скрипт для отправки сообщения по электронной почте

Иногда бывает удобно получать на электронную почту результаты выполнения скриптов или ПО, чтобы контролировать их работу. В этом случае можно использовать следующий скрипт sendmail.vbs:

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Test Subject"
objMessage.Sender = "script@domain.com"
objMessage.To = "admin@domain.com"
objMessage.TextBody = "Test Body"
objMessage.AddAttachment "c:\attachment.txt"
'==This section provides the configuration information for the remote SMTP server.
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.domain.com"'Server SMTP port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
objMessage.Send

Скачать sendmail.zip

Пожалуйста, оцените статью:

(всего оценок: 6, средняя: 3,67 из 5)