Отправка E-Mail со страниц своего сервера

Тарифные планы Базовый и Расширенный

Для отправки почты по SMTP-протоколу на сервере установлена компонента Dundas Mailer Control.

Пример работы с компонентой (важно: обязательно нужно добавить в свойство SMTPRelayServers значение "mail.aha.ru"):

<%
Dim objEMail
On Error Resume Next
Set objEMail = Server.CreateObject("Dundas.Mailer")
' SMTP-сервер, через который будет вестись отправка сообщения
objEMail.SMTPRelayServers.Add "mail.aha.ru"
' Адрес получателя сообщения
objEMail.Tos.Add "to@domain.net"
' Адрес отправителя сообщения
objEMail.FromAddress = "from@domain.net"
' Тема сообщения
objEMail.Subject = "Subject"
' Кодировка сообщения
objEMail.BodyCharSet = "koi8r"
' Тело (текст) сообщения
objEMail.Body = "Text"
' Отправка сообщения
objEMail.SendMail
'Произошла-ли ошибка при отправке
if Err <> 0 Then 
    Rezult = "Error: " & Err.Description
else
    Rezult = "Done"
end if
%> <% =Rezult  %>

То же самое можно реализовать методом QuickSend:

<%
Dim objEMail
On Error Resume Next
Set objEMail = Server.CreateObject("Dundas.Mailer")
objEMail.SMTPRelayServers.Add "mail.aha.ru"
objEMail.QuickSend "from@domain.net", "to@domain.net",
                   "Subject", "Text"
if Err <> 0 Then 
    Rezult = "Error: " & Err.Description
else
    Rezult = "Done"
end if
%> <% =Rezult  %>

Компонента использует следующие свойства:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mailbox@your_domain.ltd"
myMail.To="mailbox@domain.ltd"
myMail.TextBody="This is a message."

myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2

'Name or IP of remote SMTP server'
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="mail.your_domain.ltd"

'Server port'
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 

myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>