Sending mail using ASP — различия между версиями
Материал из Помощь клиентам хостинга
Admin (обсуждение | вклад) |
Admin (обсуждение | вклад) |
||
| Строка 5: | Строка 5: | ||
Если Вы не клиент [[ЛидерХост]], то замените mxr2.leaderhost.ru на хост своего почтового сервера. | Если Вы не клиент [[ЛидерХост]], то замените mxr2.leaderhost.ru на хост своего почтового сервера. | ||
| − | < | + | <pre> |
<%@ LANGUAGE="VBSCRIPT"%> | <%@ LANGUAGE="VBSCRIPT"%> | ||
<% | <% | ||
| Строка 32: | Строка 32: | ||
%> | %> | ||
| − | </ | + | </pre> |
Текущая версия на 00:43, 7 декабря 2015
Отправка 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
%>
