Понадобился скриптик для отпрвки e-mail на VBS (Visual Basic Script). Почему именно на VBScript? Просто так потребовалось. Тоже самое можно было сделать и при помощи JavaScript, но раз нужно использовать VBS, то будем использовать его.
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”)
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
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
Как вы видите, все достаточно просто. Все настройки вынесены в начало скрипта.
Комментариев нет:
Отправить комментарий