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


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


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



系統預設使用25 port發信。 若需要使用SSL發信，請將檔案內二段程式碼("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 

紅字數字改成465或587port及("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 紅字數字改成True




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