<%
подписка на Jmail (электронная почта)
Тусклый JMail, SendMail
Установить JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=Истина
JMail.Charset="gb2312"
JMail.ContentType = "текст/html"
JMail.ServerAddress=SMTPServer
JMail.Sender=Системная электронная почта
JMail.Subject=тема
JMail.Body=тело письма
Электронная почта JMail.AddRecipient
JMail.Priority=3
JMail.Выполнить
Установить JMail=ничего
если ошибка, то
SendMail=err.description
ошибка.очистить
еще
ОтправитьПочту="ОК"
конец, если
конец субтитра
Cdonts(электронная почта)
тусклый объект objCDOMail
Установите objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =Системная почта
objCDOMail.To = электронная почта
objCDOMail.Subject = тема
objCDOMail.Body = тело сообщения
objCDOMail.Send
Установить objCDOMail = Ничего
если ошибка, то
SendMail=err.description
ошибка.очистить
еще
ОтправитьПочту="ОК"
конец, если
конец подписки
aspemail(электронная почта)
Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
получатель=электронная почта
отправитель = Системная электронная почта
тема=тема
сообщение = тело письма
почтовый сервер = SMTPServer
result=mailer.SendMail(почтовый сервер, получатель, отправитель, тема, сообщение)
если ошибка, то
SendMail=err.description
ошибка.очистить
еще
ОтправитьПочту="ОК"
конец, если
конец субтитра
%>