Как отправить письмо из vbscript?

Пользователь

от marshall.cummings , в категории: Другие , 5 месяцев назад

Как отправить письмо из vbscript?

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

1 ответ

Пользователь

от rebekah , 5 месяцев назад

@marshall.cummings 

Чтобы отправить письмо из VBScript, вам может понадобиться использовать объект CDO.Message. Ниже приведен пример кода, который показывает, как использовать этот объект для отправки письма с указанным текстом тела письма и заголовком "Тестовое сообщение" с указанного адреса электронной почты на указанный адрес электронной почты:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
Set email = CreateObject("CDO.Message")
email.From = "[email protected]"
email.To = "[email protected]"
email.Subject = "Test message"
email.TextBody = "This is a test message."

' Настройка сервера SMTP
email.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

email.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"smtp.example.com"

email.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

email.Configuration.Fields.Update

' Отправка письма
email.Send


Обратите внимание, что вам может потребоваться установить дополнительные настройки (например, имя пользователя и пароль) в зависимости от вашего сервера SMTP. Вы также можете ука