ASP发邮件功能可以通过引用CDOSYS组件来实现。具体步骤如下:
<%@ Language=VBScript %>
<%
Set objEmail = CreateObject("CDO.Message")
%>
<%
objEmail.From = "发件人邮箱"
objEmail.To = "收件人邮箱"
objEmail.Subject = "邮件主题"
objEmail.TextBody = "邮件内容"
%>
<%
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SMTP服务器地址"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
%>
<%
objEmail.Send
%>
完整代码示例:
<%@ Language=VBScript %>
<%
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "发件人邮箱"
objEmail.To = "收件人邮箱"
objEmail.Subject = "邮件主题"
objEmail.TextBody = "邮件内容"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SMTP服务器地址"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
%>
亿速云「云服务器」,即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘,价格低至29元/月。点击查看>>
推荐阅读:Asp.net怎样实现发邮件功能