Godaddy windows主机用CDONTS.NewMail发邮件方法

cpuer

发送邮箱必须使用godaddy送或者那购买的企业邮局！

代码如下:

<%
sendUrl="http://schemas.microsoft.com/cdo/configuration/sendusing"
smtpUrl="http://schemas.microsoft.com/cdo/configuration/smtpserver"


' Set the mail server configuration
Set objConfig=CreateObject("CDO.Configuration")
objConfig.Fields.Item(sendUrl)=2 ' cdoSendUsingPort
objConfig.Fields.Item(smtpUrl)="relay-hosting.secureserver.net"
objConfig.Fields.Update


' Create and send the mail
Set objMail=CreateObject("CDO.Message")
' Use the config object created above
Set objMail.Configuration=objConfig
objMail.From="service@godaddy.com"   注：这里一定要是GoDaddy提供的邮局,否则发送不了
objMail.To="xxx@example.com"
objMail.Subject="subjec"
objMail.TextBody="body"
objMail.Send
Response.Write "邮件发送成功！"
if Err <> 0 then
response.write "<font color=ff0000>"&Err.Description&"</font>"
response.end
end if
%>