【Windows進階主機】CDO.Message 程式發信範例



    ASP 上配合 CDO.Message 物件使用 SMTP 驗證發信, 請參考下列程式範例:


    註:SMTP Server 請客戶自備,Windows 虛擬主機服務並未提供,請使用SMTP 25埠的Mail server才可支援。


<%

Set objMail = CreateObject("CDO.Message")

objMail.Subject      = "請輸入信件主旨"               '發信主題

objMail.From         = "service@abc.url.tw"    '發信者電子信箱

objMail.To           = "sales@123.url.tw"      '收件者電子信箱

objMail.TextBody     = "Test message"              '信件內容


objMail.Configuration.Fields.Item _

("http://schemas.microsoft.com/cdo/configuration/sendusing")=2

'SMTP 伺服器位址

objMail.Configuration.Fields.Item _

("http://schemas.microsoft.com/cdo/configuration/smtpserver")="abc.url.tw"

'SMTP 伺服器連線 Port

objMail.Configuration.Fields.Item _

("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25

'是否使用 SSL 連線 (False or True)

objMail.Configuration.Fields.Item _

("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

'連線伺服器逾時時間

objMail.Configuration.Fields.Item _

("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

'SMTP 伺服器是否需要驗證

objMail.Configuration.Fields.Item _

("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

'SMTP 伺服器使用者名稱

objMail.Configuration.Fields.Item _

("http://schemas.microsoft.com/cdo/configuration/sendusername") = "service@abc.url.tw"

'SMTP 伺服器使用者密碼

objMail.Configuration.Fields.Item _

("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "********"


objMail.Configuration.Fields.Update


objMail.Send

set objMail=nothing

%>