Отправка 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
Как вы видите, все достаточно просто. Все настройки вынесены в начало скрипта.
Связанные записи
Если Вам понравилась заметка, пожалуйста, прокомментируйте ее или подпишитесь на фид и получайте будущие публикации по RSS.
Комментарии
Алексей, используйте оператор Date и Time. Например, objEmail.Textbody = “Текста Вашего письма ” & CStr(Time) & ” ” & CStr(Date)
Если пользователь откроет HTML-код страницы со скриптом, или файл скрипта на сервере, он обнаружит пароль от e-mail и сможет его использовать. Можно ли этого избежать? Заранее спасибо.
Владимир, попробуй вот такое добавить
‘ Добавляем файл - вложение для отправки по EMail
objEmail.AddAttachment “ПУТЬ К ФАЙЛУ”
только не забудь заменить “ПУТЬ К ФАЙЛУ” на настоящий путь, например C:\send_email_vbs.txt
Артём, могу предложить зашифровать vbs-скрипт для отправки e-mail. Лучше реализуй отправку почты при помощи php.
Советую посмотреть:
http://zaan.ru/otpravka-pochty-pri-pomoshhi-php/
http://zaan.ru/otpravka-pochty-s-vlozheniem-pomoshhi-php/
У меня хост на народе, PHP не поддерживается к сожалению… я бы весь проект на PHP сделал, имей я возможность, это удобней гораздо. У них там вообще не поддерживаются скрипты работающие на сервере, как Perl / PHP, только те которые работают в браузере. Огромное спасибо заранее если зашифруете vbs=)
Артём, обсуждение поста “Отправка e-mail на VBS (VBScript)” подтолкнуло к написанию статьи “Шифрование скриптов VBS (VBScript)”.
А как можно вставить в текст письма “Текста Вашего письма” дату и время отправки, спасибо