December 19, 2018, Wednesday, 352

Gmail寄信程式範例

出自智邦小幫手

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

想要在智邦生活館Windows進階主機空間執行smtp發信,但又沒有自購的smtp主機,建議您可借用Gmail 信箱 SMTP 發信埠來寄送。


提醒大家,未經由消費者同意而隨意收集E-Mail名單來發放站台消息或推廣,有可能觸及即將實施的個資法條例智邦生活館虛擬主機使用規範第三章,建議您多利用其他行銷方式做為推廣站台工具。


以下為 ASP 利用Gmail發信程式範例(僅提供參考,恕不負責程式撰寫教學),仍需依照Gmail伺服器之使用規則,該單位伺服器有權終止您的發信權利。


<%
'Create CDO.Message object instance
Set myMail = CreateObject("CDO.Message")

'============================================================
' 使用外部 SMTP
'============================================================

'設定是否使用外部 SMTP
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2    	'1 代表使用 local smtp, 2 為外部 smtp

'SMTP Server domain name
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

'Server port, gmail use ssl smtp authentication, port number is 465
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465

'Authentication method, ssl or not, Username and password for the SMTP Server
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1	'cdoBasic 基本驗證
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "寄件人信箱"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "寄件人信箱密碼"
myMail.Configuration.Fields.Update

'============================================================
' End of 使用外部 SMTP
'============================================================

myMail.Subject = "主旨"
myMail.From = "寄件人信箱"
myMail.To = "收件人信箱"
myMail.TextBody = "純文字信件內容"
myMail.HtmlBody = "HTML信件內容"
myMail.BodyPart.Charset = "Big5"
myMail.Send

set myMail=nothing
%>

※ 以上範例已有測試過在智邦生活館Windows進階主機空間Server2000及Server2003的環境都可以使用。