由于公司把网站从自己的服务器上移到了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 = "[email protected]"
'friends =sfasfsa
myMail.To = "