由于公司把网站从自己的服务器上移到了gd的asp空间上,gd的空间又不支持gmail,找了很多的资料。。才找到下面这个发邮件的代码。。
经测试,完全可用
<%Dim myMail
Set myMail = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing"") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
.Update
End With
myMail.Configuration=iConf
Dim friends
myMail.From = "cqinter@hotmail.com"
'friends =sfasfsa
myMail.To = "25040143@qq.com"

本文介绍了如何在ASP空间中,通过CDO.Message对象和配置SMTP服务器来实现利用Gmail发送邮件的功能。提供的代码示例详细展示了设置SMTP服务器、发件人、收件人、邮件主题和内容的步骤,并经过测试确认有效。
最低0.47元/天 解锁文章
7957

被折叠的 条评论
为什么被折叠?



