zt 在 asp 中使用 cdo 通过远程邮件服务器发送邮件

环境：Windows 2016 - IIS - asp, 阿里云免费邮箱账户[email protected]

过程：

1.创建 asp-sent-mail.asp 文件，内容如下，关键信息 “smtpserver”填写“smtp.aliyun.com”，“smtpserverport”填写“465”，“sendusername”填写“[email protected]”，“sendpassword”填写“您的密码”，“Mail.From”填写“[email protected]”
<%
Set Mail = CreateObject("CDO.Message")


Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.aliyun.com"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465


Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1


Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60


Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="[email protected]"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="password"


Mail.Configuration.Fields.Update


Mail.Subject="Email subject"
Mail.From="[email protected]"
Mail.To="[email protected]"
Mail.TextBody="This is an email message."


Mail.Send
Set Mail = Nothing
%>





2.在浏览器里访问这个asp-sent-mail.asp文件，发出邮件，测试成功



参考：

• http://webcheatsheet.com/asp/sending_email_asp.php
• http://www.cnblogs.com/qiangshu/archive/2009/12/22/1629829.html

好古老的asp

先看了一眼发帖时间

回复3#b1ackf0x
玛德 我第一反应也是看发帖时间