Sending mail using ASP

Отправка e-mail сообщения из скрипта на ASP

Простой скрипт написаный на ASP предназначен для отправки письма из скрипта (с сайта например).

Если Вы не клиент ЛидерХост, то замените mxr2.leaderhost.ru на хост своего почтового сервера.

<geshi lang=asp> <%@ LANGUAGE="VBSCRIPT"%> <% dim objMailCDO Set objMailCDO = CreateObject("CDO.Message") objMailCDO.Configuration.Fields.Item _

       ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objMailCDO.Configuration.Fields.Item _

       ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mxr2.leaderhost.ru"

objMailCDO.Configuration.Fields.Item _

       ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objMailCDO.Configuration.Fields.Update objMailCDO.To="info@domain.ru" objMailCDO.from="info@domain.ru" objMailCDO.Subject = "Тестовое письмо " & request.ServerVariables ("SERVER_NAME") objMailCDO.MimeFormatted = true

objMailCDO.HTMLBody = "телописьма" objMailCDO.Send if err<>0 then

       response.Write ("error:"&Err.Description)

else

       response.Write ("Yes")

end if Set objMailCDO = Nothing

%> </geshi>