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

Олег

  • 1 июня 2018
Mail

Как отправить письмо из 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"

Теги

💰 Поддержать проект

 

Похожие материалы

hMailServer — бесплатный почтовый сервер для Windows

Олег

hmailserver
hMailServer — бесплатный почтовый сервер под платформу Windows. Распространяется с открытым кодом. Работает как служба Windows и включает в себя инструменты администрирования и резервного копирования. Поддерживает почтовые протоколы IMAP, POP3 и SMTP. В сервере есть все основные функции, такие как поддержка нескольких доменов, алиасы, списки рассылок. Авторизация пользователей может проводиться используя локальную базу пользователей hMailServer или через базу Active Directory.

Теги

hMailServer — установка

Олег

hmailserver
В интернете очень мало информации о hMailServer. А та что есть - неполная. Я решил немного развеять облака над этой темой и написать цикл статей про этот почтовый сервер. Сегодня просто установим hMailServer. Конфигурация установки: операционная система Windows Server 2016, версия БД MySQL 8.0.15, версия hMailServer 5.6.8 - Build 2431 (BETA).

Теги

Почитать