VBS скрипт для отправки почты

Автор: Admin

Дата:2013-03-29

'Скрипт VBS для отправки почты
Set objMes = CreateObject("CDO.Message")
'Почтовы сервер или IP адрес
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "домен.ru"
'Порт сервера SMTP
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'1 означает, что используется базовая аутентификация
'0 – без аутентификации
'2 – аутентификация NTLM
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'Имя пользователя
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "пользователь@домен.ru"
'Пароль
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Ваш_Пароль"
objMes.Configuration.Fields.Update
objMes.From = "пользователь@домен.ru" 'От кого письмо
objMes.To = "пользователь@домен.ru" ' Кому письмо
objMes.Subject = "Тема" 'Тема письма
objMes.Textbody = "Тело письма" 'Что будет в теле письма
objMes.AddAttachment "C:\tmp\1.txt" 'Прикрепляем файл
objMes.Send

Количество просмотров: 11185

Комментарии к статье:

Автор комментария: artem
Дата: 2018-04-22

Ошибка - строка 20, символ 1. (objMes.Send). Пишет: недопустимое значение конфигурации SendUsing (источник SDO.message.1) - прикрепление файла вовсе убрал

Автор комментария: Денис
Дата: 2016-01-02

Добрый вечер! Никак не получается отправить сообщение с помощью скрипта

Автор комментария: BRo
Дата: 2015-04-28

Ошибка - строка 20, символ 1. (objMes.Send). Пишет: недопустимое значение конфигурации SendUsing (источник SDO.message.1)

Автор комментария: Adm
Дата: 2015-04-28

>>Bro. нет файла 1.txt в папке tmp

Добавить комментарий

Введите сумму с картинки

© Plutonit.ru - Администрирование, настройка Linux и Windows 2009 - 2024