發表於:
2007年 3月 14日, 17:49
由 joe
SMTP需驗正的範例
<%
'本公司虛擬主機使用CDO寄信的範例,僅供本公司客戶參考,非本公司客戶不見得適用
myMailServer = "xxx.xxx" '您於本公司mail主機的位置,通常為mail.您的域名,如mail.abc.com
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpserver") = myMailServer
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
cdoConfig.Fields.Item(sch & "sendusername") = "xxx@xxx.xx" '您於本公司MAIL主機上的帳號如joe@abc.com
cdoConfig.Fields.Item(sch & "sendpassword") = " xxxx" 'E-mail帳號的密碼
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = "joe@webdsn.net" '寄件人
cdoMessage.To = "t3313@hotmail.com" '收件人
cdoMessage.Subject = "主旨"
cdoMessage.HTMLBody = "信件內文"
cdoMessage.Send
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>