實現透過CDO.Message寄發Gmail信件

作者:admin 日期:2009-10-19

字體大小: 小中大

礙於JMail本身對SSL之限制，若有Gmail發送信件需求朋友，可以透過CDO.Message實現

<%
dim myMail
Set myMail=CreateObject("CDO.Message")
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
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
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "你的Gmail帳號"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "你的Gmail密碼"
'-------------------------------------
myMail.Configuration.Fields.Update
myMail.From = "<xxxxxxx@gmail.com>"
myMail.To = "<xxxxxx@yahoo.com.tw>"
myMail.Subject =""
myMail.TextBody = ""
myMail.Send
set myMail=nothing
%>

-------------------------------------------------------------------------------------------------------------------
CDO 郵件元件使用方法
Microsoft從Windows Server 2000 及 Windows XP開始內建郵件元件已改為CDO
在之前的系統內建郵件元件則是 CDONTS，各位要注意，以下是CDO的用法

屬性說明
Subject 郵件的主旨
From 寄件人的電子郵件信箱
To 收件人的電子郵件，可用分號；或逗號，斷開成多位收件人
CC 副本收件人的電子郵件，可用分號；或逗號，斷開成多位收件人
BCC 密送副本收件人的電子郵件，可用分號；或逗號，斷開成多位收件人
TextBody 郵件的本文-純文字模式
HTMLBody 郵件的本文-HTML模式

方法說明
Send 送出郵件
AddAttachment "c:\mydocuments\test.txt" 附件
CreateMHTMLBody "http://www.w3schools.com/asp/" 將一個網頁用HTML格式送出
CreateMHTMLBody "file://c:/mydocuments/test.htm" 將本機硬碟中的一個網頁用HTML格式送出

範例：
送出一封純文字信件:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%>

送出一封純文字信件並給副本收件人及密送副本收件人
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.Bcc="someoneelse@somedomain.com"
myMail.Cc="someoneelse2@somedomain.com"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%>

送出一封HTML信件
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.HTMLBody = "<h1>This is a message.</h1>"
myMail.Send
set myMail=nothing
%>

將一個網頁用HTML格式送出
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "http://www.w3schools.com/asp/"
myMail.Send
set myMail=nothing
%>

將本機硬碟中的一個網頁用HTML格式送出
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "file://c:/mydocuments/test.htm"
myMail.Send
set myMail=nothing
%>

送出一封純文字信件並含附件
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.AddAttachment "c:\mydocuments\test.txt"
myMail.Send
set myMail=nothing
%>

Sending a text e-mail using a remote server:

用遠端SMTP主機送出一封純文字信件
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") =2
'遠端SMTP主機名稱或IP位址
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver" )="smtp.server.com"
'遠端SMTP主機埠號 Server port
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverp ort") =25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>

[本日誌由 admin 於 2009-10-19 11:23 PM 編輯]