Sending mail using ASP
Материал из Помощь клиентам хостинга
Версия от 01:18, 12 января 2009; Admin (обсуждение | вклад) (Защищена страница «Sending mail using ASP» [edit=sysop:move=sysop])
<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>