ТОО "LiO Programs" - web дизайн, хостинг, разработка ПО - Статьи

СТАТЬИ - ОТПРАВКА E-MAIL В ASP (17.09.2005)

ОТПРАВКА E-MAIL В ASP

Коротко:Рассматривается OLE компонент (LMail ver2) для отправки почтовых сообщений.

В одном asp проекте столкнулся с затруднением при отправки почты. Не то что бы не было хорошихкомпонентов для отправки писем, но что-то все мне не подходило или не нравилось. У одного компонента нет возможности аттача, у другого не было возможности идентификации smtp. Не долга раздумывая решил написать свой ole компонент – в котором учтены по максимуму всем мои «завышенные» потребности и «капризы», да и свое ближе к сердцу. Выношу на Ваш суд данный компонент:

LMail ver 2

Параметры:

Host	- имя или ip адрес smtp хоста;
MailPort	- номер smtp порта;
CharSet	- кодовая страница письма. К примеру - Windows-1251
Subject	- заголовок письма;
FromAddress	- адрес от кого письмо
FromName	- имя от кого письмо
ReplyTo	- адрес ответа на письмо. Строка может состоять из адреса или адреса и имени по типу - Ваше имя <test@test.com>
ToAddress	- список e-mail адресов кому письмо. Если адресов несколько они должны быть разделены символамиchr(13)&chr(10) (перевод строки)
CanDeleteAttach	- переключатель удаления файлов аттач после отправки письма. 0-не удалять, 1-удалять.
Attachments	- список файлов для аттача к письму. Каждый файл должен иметь прямой путь (с указанием диска и каталога) и быть разделен символамиchr(13)&chr(10) (перевод строки)
act_auto	- переключатель идентификации smtp соединения. 0 – нет идентификации, 1- использовать идентификацию. Имя и пароль для идентификации берется из параметров act_log и act_psw
act_log	- логин (имя) для smtp идентификации
act_psw	- пароль для smtp идентификации
Message	- текст письма.
Send	- функция отправки письма. Функция возвращает результат отправки. Если отправка произошла успешно – значение будет пустым, иначе – значение будет содержать строку ошибки.

Пример работы компонента

<% Set mail = Server.CreateObject("LMail.Mail")
    // хост
    mail.Host="mail.test.com"
    // smtp порт
    mail.MailPort=25
    // адрес для ответа на письмо
    mail.ReplyTo=admin@test.com
    // адре от кого письмо
    mail.FromAddress=text@text.com
    // имя от кого письмо
    mail.FromName="Test"
    // заголовок письма
    mail.Subject="заголовок письма"
    // адрес кому письмо
    mail.ToAddress="Admin "
    // кодовая страница
    mail.CharSet="Windows-1251"
    // сообщение
    mail.Message="сообщение строка №1"&chr(13)&chr(10)&"сообщение строка №2"&chr(13)&chr(10)
    // использовать идентификацию smtp
    mail.act_auto=1
    // логин (имя) для идентификации smtp
    mail.act_log="test@test.com"
    // пароль для идентификации smtp
    mail.act_psw="111"
    // переключатель удаление аттачей к письму
    mail.CanDeleteAttach=0
    // файлы для пересылки
    mail.Attachments="C:host.zip"&chr(13)&chr(10)&"C:*05.gif"

    // отправка письма
    s=mail.Send
    if s<>"" then Response.Write("Ошибка!!!<br>"&s) else Response.Write("OK!!!")
%>

компоненти пример lmail_v2.zip (150Кб)