Sending mail using ASP — различия между версиями
Материал из Помощь клиентам хостинга
Admin (обсуждение | вклад) |
Admin (обсуждение | вклад) (→Отправка e-mail сообщения из скрипта на ASP) |
||
| Строка 2: | Строка 2: | ||
Простой скрипт написаный на ASP предназначен для отправки письма из скрипта (с сайта например). | Простой скрипт написаный на ASP предназначен для отправки письма из скрипта (с сайта например). | ||
| + | |||
Если Вы не клиент [[ЛидерХост]], то замените mxr1.leaderhost.ru на хост своего почтового сервера. | Если Вы не клиент [[ЛидерХост]], то замените mxr1.leaderhost.ru на хост своего почтового сервера. | ||
Версия 01:21, 12 января 2009
Отправка e-mail сообщения из скрипта на ASP
Простой скрипт написаный на ASP предназначен для отправки письма из скрипта (с сайта например).
Если Вы не клиент ЛидерХост, то замените mxr1.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") = "mxr1.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>
