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的環境都可以使用。