Отправка почты скриптом (vbs) Исправление кодировки + авторизация
''''''''''''''''''''''''''''''''''''''''''''''''''''
' Скрипт: SendMail.vbs
' Описание: отправка сообщения по электронной почте
' Язык: VBScript
''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Dim objEmail 'CDO объект для отправки сообщения
Dim MessText 'Текст сообщения
Dim AttFile 'Файл вложения.
'Формируем текст сообщения
MessText = "Уважаемые сотрудники!" & vbCRLF & _
" В целях проведения плановых антивирусных проверок, просьба не выключать свои персональные компьютеры по окончании рабочего дня по понедельникам (или в 1-ый рабочий день после выходных). " & vbCRLF & _
" Оставляя включенным компьютер завершать сеанс. Для этого используется комбинация клавиш Crl + Alt + Del и выбор поля “Завершение сеанса или Выйти из системы”." & vbCRLF
MessText = MessText + "Для дополнительной информации просьба обращаться к вн. номер 0000 Управление информационных технологий" & VbCrLf
'AttFile = "C:\Temp\1.txt" 'Указываем путь к файлу, который необходимо вложить в сообщение
Set objEmail = WScript.CreateObject("CDO.Message") 'Создаем объект CDO и получаем на него ссылку в переменную objEmail
''''''''''''''''''''''''''''''''''''''''''''''''''''
' Указание необходимых параметров объекта CDO
''''''''''''''''''''''''''''''''''''''''''''''''''''
objEmail.From = "script@firma.ru" 'параметры отправителя (имя и адрес электронной почты)
objEmail.To = "all users@firma.ru" 'адрес электронной почты получателя
objEmail.Subject = "Просьба не выключать компьютеры в понедельник!" 'тема сообщения
'objEmail.AddAttachment(AttFile) 'файла вложения
objEmail.Textbody = MessText 'текст сообщения
objEmail.Bodypart.Charset = "windows-1251"
'Отправить сообщение используя сетевую SMTP-службу (1 - используется для отправки через локальную SMTP-службу)
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "USERNAME"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PASSWORD"
'Указание имени SMTP-сервера
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "outlook.firma.ru"
'Указание SMPT-порта на сервере
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'Обновить конфигурацию CDO-объекта
objEmail.Configuration.Fields.Update
'Послать сообщение с помощью метода Send
objEmail.Send
' Скрипт: SendMail.vbs
' Описание: отправка сообщения по электронной почте
' Язык: VBScript
''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Dim objEmail 'CDO объект для отправки сообщения
Dim MessText 'Текст сообщения
Dim AttFile 'Файл вложения.
'Формируем текст сообщения
MessText = "Уважаемые сотрудники!" & vbCRLF & _
" В целях проведения плановых антивирусных проверок, просьба не выключать свои персональные компьютеры по окончании рабочего дня по понедельникам (или в 1-ый рабочий день после выходных). " & vbCRLF & _
" Оставляя включенным компьютер завершать сеанс. Для этого используется комбинация клавиш Crl + Alt + Del и выбор поля “Завершение сеанса или Выйти из системы”." & vbCRLF
MessText = MessText + "Для дополнительной информации просьба обращаться к вн. номер 0000 Управление информационных технологий" & VbCrLf
'AttFile = "C:\Temp\1.txt" 'Указываем путь к файлу, который необходимо вложить в сообщение
Set objEmail = WScript.CreateObject("CDO.Message") 'Создаем объект CDO и получаем на него ссылку в переменную objEmail
''''''''''''''''''''''''''''''''''''''''''''''''''''
' Указание необходимых параметров объекта CDO
''''''''''''''''''''''''''''''''''''''''''''''''''''
objEmail.From = "script@firma.ru" 'параметры отправителя (имя и адрес электронной почты)
objEmail.To = "all users@firma.ru" 'адрес электронной почты получателя
objEmail.Subject = "Просьба не выключать компьютеры в понедельник!" 'тема сообщения
'objEmail.AddAttachment(AttFile) 'файла вложения
objEmail.Textbody = MessText 'текст сообщения
objEmail.Bodypart.Charset = "windows-1251"
'Отправить сообщение используя сетевую SMTP-службу (1 - используется для отправки через локальную SMTP-службу)
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "USERNAME"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PASSWORD"
'Указание имени SMTP-сервера
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "outlook.firma.ru"
'Указание SMPT-порта на сервере
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'Обновить конфигурацию CDO-объекта
objEmail.Configuration.Fields.Update
'Послать сообщение с помощью метода Send
objEmail.Send