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

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

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