Отправка email с помощью VBS скрипта

Олег

1 июня 2018

Как отправить письмо из VBS скрипта? Легко.

Кодировка ANSI

Без аутентификации:

Set emailObj      = CreateObject("CDO.Message")

emailObj.From     = "test@domain.ru"
emailObj.To       = "vpupkin@gmail.com"

emailObj.Subject  = "Тестовый заголовок"
emailObj.TextBody = "Текст на кириллице"
emailObj.BodyPart.CharSet = "windows-1251"

Set emailConfig = emailObj.Configuration

emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smpt.mail.server"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing")    = 2  
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0  
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl")      = false
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/languagecode")      = 1049
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/usemessageresponsetext")      = true

emailConfig.Fields.Update

emailObj.Send

If err.number = 0 then Msgbox "Done"

С аутентификацией:

Set emailObj      = CreateObject("CDO.Message")

emailObj.From     = "test@domain.ru"
emailObj.To       = "vpupkin@gmail.com"

emailObj.Subject  = "Тестовый заголовок"
emailObj.TextBody = "Текст на кириллице"

Set emailConfig = emailObj.Configuration

emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smpt.mail.server"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing")    = 2  
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "логин"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "пароль"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl")      = false
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/languagecode")      = 1049
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/usemessageresponsetext")      = true

emailConfig.Fields.Update

emailObj.Send

If err.number = 0 then Msgbox "Done"

Outlook — принудительно обновить глобальную адресную книгу

Олег

22 сентября 2022
Подробнее о Outlook — принудительно обновить глобальную адресную книгу

GAL (Global Address List) — глобальный список адресов. Автоматически создаётся Exchange и включает в себя все объекты с включенной почтой в лесу Active Directory.

Exchange — отказано в доступе

Олег

31 мая 2023
Подробнее о Exchange — отказано в доступе

Уволился сотрудник, не простой, а сисадмин. Давно уже. Дело обычное, во всех компаниях имеется текучка кадров. Понадобилось его почтовый ящик подключить новому сотруднику. Но не тут-то было.

Google Calendar — добавляем календарь из Exchange

Олег

4 декабря 2021
Подробнее о Google Calendar — добавляем календарь из Exchange

Сегодня добавим календарь Exchange в календарь Google. К примеру, мы можем подключить рабочий календарь из Exchange к личному календарю Google, чтобы на смартфоне отслеживать события и встречи.