December 14, 2018, Friday, 347

ASP使用 CDO.Message寄信程式範例

出自智邦小幫手

(重定向自Web win cdomessage
跳轉到: 導覽, 搜尋

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