Cdo寄信範例

[hamlet]

文章已刪除

[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
%>