Sending mail using ASP

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

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

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

<%@ 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 

%>