利用CDO.Message发送邮件

由于公司把网站从自己的服务器上移到了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&quot;") = 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"