Отправка e-mail на VBS (VBScript)
Понадобился скриптик для отпрвки e-mail на VBS (Visual Basic Script). Почему именно на VBScript? Просто так потребовалось. Тоже самое можно было сделать и при помощи JavaScript, но раз нужно использовать VBS, то будем использовать его.
Задача достаточна проста, так что сразу приведу скрипт отправки e-mail написанный на VBScript:
Const EmailPassword = «123456» ‘ пароль от e-mail
Const strSmtpServer = «smtp.email.com» ‘ smtp сервер
Const EmailTo = «komu@email.com» ‘ Кому будет отправляться e-mail
Set objEmail = CreateObject(«CDO.Message»)
objEmail.From = EmailFrom
objEmail.To = EmailTo
objEmail.Subject = «Здесь должен быть текст заголовка»
objEmail.Textbody = «Текста Вашего письма»
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») = EmailFrom
objEmail.Configuration.Fields.Item («http://schemas.microsoft.com/cdo/configuration/sendpassword») = EmailPassword
objEmail.Configuration.Fields.Item («http://schemas.microsoft.com/cdo/configuration/smtpserver») = strSmtpServer
objEmail.Configuration.Fields.Item («http://schemas.microsoft.com/cdo/configuration/smtpserverport») = 25
objEmail.Configuration.Fields.Update
objEmail.Send
WScript.Quit
Как вы видите, все достаточно просто. Все настройки вынесены в начало скрипта.
Комментарии
Пока нет комментариев.
Прокомментировать