Sending mail using ASP — различия между версиями
Материал из Помощь клиентам хостинга
Admin (обсуждение | вклад) (→Отправка e-mail сообщения из скрипта на ASP) |
Admin (обсуждение | вклад) |
||
(не показана 1 промежуточная версия этого же участника) | |||
Строка 3: | Строка 3: | ||
Простой скрипт написаный на ASP предназначен для отправки письма из скрипта (с сайта например). | Простой скрипт написаный на ASP предназначен для отправки письма из скрипта (с сайта например). | ||
− | Если Вы не клиент [[ЛидерХост]], то замените | + | Если Вы не клиент [[ЛидерХост]], то замените mxr2.leaderhost.ru на хост своего почтового сервера. |
− | < | + | <pre> |
<%@ LANGUAGE="VBSCRIPT"%> | <%@ LANGUAGE="VBSCRIPT"%> | ||
<% | <% | ||
Строка 13: | Строка 13: | ||
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 | ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 | ||
objMailCDO.Configuration.Fields.Item _ | objMailCDO.Configuration.Fields.Item _ | ||
− | ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = " | + | ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mxr2.leaderhost.ru" |
objMailCDO.Configuration.Fields.Item _ | objMailCDO.Configuration.Fields.Item _ | ||
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 | ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 | ||
Строка 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 %>