| |
NT CDONTS 元件寄送電子郵件範例程式說明
NT CDONTS 元件是本公司 Windows 系列伺服器支援的寄信元件之一，利用本元件您可於 ASP 程式中呼叫該元件達到寄信給自己或使用者的功能，以下簡單介紹各類寄信的程式碼，利用該程式即可有效的寄出多變化的信件：
 |
範例一 ( 簡易寄送 )：2003.1.18
更新
<%
' 建立與SMTP服務連線的 CDONTS.NewMail物件
Set ObjSendMail=CreateObject("CDONTS.NewMail")
' 開始傳送郵件
' 格式 ObjSendMail.Send "來源郵件","目的郵件位址","主旨","內容"
ObjSendMail.Send "me@domain.com","receiver@domain.com","how
are you?","My name is John"
' 移除物件
Set ObjSendMail=Nothing
%>
|
|
範例二 ( 完整寄送 )：2003.1.18
更新
<%
' 建立與SMTP服務連線的 CDONTS.NewMail物件
Set ObjSendMail=CreateObject("CDONTS.NewMail")
With ObjSendMail
.From = "me@domain.com" ' 來自郵件位址
.To = "receiver@domain.com" ' 收件人郵件位址
.CC = "john@domain.com" ' 副本
.BCC = "mary@domain.com" ' 密件副本
.Subject = "how are you?" ' 主旨
.Body = "My name is John" ' 信件內容
.Send
EndWith
'移除物件
Set ObjSendMail=Nothing
%>
|
|
範例三 ( HTML網頁寄送 ) ：2003.1.18
更新
<%
Dim StrHtml = "<html><head>"
StrHtml = StrHtml &"<Title>Greeting</Title></head>"
StrHtml = StrHtml &"<body>"
StrHtml = StrHtml &"<p>How are you</p>"
StrHtml = StrHtml &"<img src="Sample.jpg">"
StrHtml = StrHtml &"</body>"
Set ObjSendMail=CreateObject("CDONTS.NewMail")
With ObjSendMail
.From = "me@domain.com"
.To = "receiver@domain.com"
' 設定傳送郵件格式為HTML
.BodyFormat = CdoBodyFormatHtml
' 設定超連結基底
.ContentBase = "http://ww.anywhere.com"
' 設定郵件內容中所有URL的絕對會相對位址
.ContentLocation = "images/"
.Subject = "Give you a Picture"
.Body = StrHtml
.Send
EndWith
'移除物件
Set ObjSendMail=Nothing
%>
|
|
|
