Отправка e-mail на VBS (VBScript)

Понадобился скриптик для отпрвки e-mail на VBS (Visual Basic Script). Почему именно на VBScript? Просто так потребовалось. Тоже самое можно было сделать и при помощи JavaScript, но раз нужно использовать VBS, то будем использовать его.

Задача достаточна проста, так что сразу приведу скрипт отправки e-mail написанный на VBScript:

Const EmailFrom = “from@email.com”      ‘ от кого будет отправляться e-mail
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

Как вы видите, все достаточно просто. Все настройки вынесены в начало скрипта.