VBS. Пишем email (SMTP) сообщение

Ответить


Этот вопрос предназначен для предотвращения автоматической отправки форм спам-ботами.
Смайлики
:| :) :wink: :D :lol: :( :cry: 8) :o :oops: :? :x :P :evil: :twisted: :roll: :!: :?: :idea: :arrow: :mrgreen:
Ещё смайлики…

Markdown is OFF

BBCode ВКЛЮЧЁН
[img] ВКЛЮЧЁН
[url] ВКЛЮЧЁН
Смайлики ВКЛЮЧЕНЫ

Обзор темы
   

Развернуть Обзор темы: VBS. Пишем email (SMTP) сообщение

VBS. Пишем email (SMTP) сообщение

UncleFather » 17 июн 2016 10:33, Пт

Для формирования и отправки SMTP сообщения по электронной почте используем следующий сценарий VBS:

Код: Выделить всё

Dim o_Mess, v_Conf
v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
Set o_Mess = CreateObject("CDO.Message")
With o_Mess
    .To = "reseiver@host.ru" 'куда отправляем
    .From = "Sender <sender@host.ru>" 'имя отправителя + Email
    .Subject = "Subject of this message" 'Тема письма
    .TextBody = "Body. Line 1" & VbCrLf & "Body. Line 2" & VbCrLf & "Body. Line 3" 'Сообщение
    .AddAttachment "C:\Soft\Attachment.rar" 'Прикрепить файл
    .TextBodyPart.Charset = "windows-1251" 'русская кодировка
With .Configuration.Fields
    .Item(v_Conf & "sendusing") = 2 'без использования каталога Server Exchange
    .Item(v_Conf & "smtpserver") = "smtp.host.ru" 'Адрес SMTP-сервера
    .Item(v_Conf & "smtpauthenticate") = 1 'Тип авторизации
    .Item(v_Conf & "sendusername") = "sender@host.ru" 'здесь имя пользователя
    .Item(v_Conf & "sendpassword") = "xxxxxxx" 'пароль
    .Item(v_Conf & "smtpserverport") = 25 'порт (альтернативный - 465)
    .Item(v_Conf & "smtpusessl") = False 'использовать ли шифрованное подключение SSL
    .Item(v_Conf & "smtpconnectiontimeout") = 60 'Время до завершения повторных попыток подключения
    .Update
End With
    .send
End With
Set o_Mess = Nothing

Скачать можно здесь:

SMTP_Message.rar
(1.82 КБ) 388 скачиваний

Вернуться к началу