|
|
|
|
|
|
|
Подписка на рассылку |
|
|
|
|
|
|
|
|
| Лучше смотреть с Microsoft Internet Explorer 4.0 и выше |
|
|
|
|
|
Dimac w3 JMail
Кратко
Этот бесплатный и очень популярный ActiveX позволяет выполнять следующие действия:- посылка почтовых сообщений по протоколу SMTP;
- прием почты по протоколу POP3;
- шифровка писем с помощью PGP;
- массовая рассылка писем.
Ссылки
Домашняя страницаСкачать дистрибутив
Скачать документацию
Стартовая страница сервера (там есть и другие компоненты!)
Объект JMail.SpeedMailer
Этот объект позволяет осуществлять посылку писем с помощью вызова буквально одного метода этого объекта. Письмо можно послать тремя способами:- по протоколу SMTP;
- через pickup-каталог;
- через не очень пока для меня понятный метод SendXMLMail.
Простая посылка письма по протоколу SMTP
Во-первых, создаем объект SpeedMailer:
Set JMail = CreateObject("JMail.SpeedMailer")
А теперь посылаем письмо:
JMail.SendMail "[email protected]", "[email protected]", _ "Subject", "Body", "smtp.narod.ru"Первый параметр - это адрес или имя отправителя, может быть любым. Второй параметр - адрес получателя. Третий - заголовок письма, четвертый - тело письма. Пятый - имя доступного Вам SMTP-сервера, через который будет отправлено письмо.
Можно послать письмо сразу нескольким адресатам. В этом случае их адреса разделяются запятой:
JMail.SendMail "[email protected]", "[email protected], [email protected]", _ "Subject", "Body", "smtp.narod.ru"
А теперь все вместе (sample1.vbs):
Option Explicit
Dim JMail
Set JMail = CreateObject("JMail.SpeedMailer")
JMail.SendMail "[email protected]", "[email protected]", _
"Subject", "Body", "smtp.narod.ru"
Set JMail = Nothing
Продолжение следует...