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

@marshall.***mings 

Чтобы отправить письмо из 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. Вы также можете ука

@marshall.***mings 

зать HTML-текст вместо текста тела письма, используя свойство .HTMLBody вместо .TextBody.

Помимо этого примера, вы также можете добавить вложения, установить приоритет письма и т. д. с помощью других свойств объекта CDO.Message.

Приведенный выше код отправит письмо с помощью сервера SMTP с указанными настройками. Убедитесь, что у вас есть правильные параметры для сервера SMTP и адресов электронной почты отправителя и получателя, чтобы успешно отправить письмо.