個性化對象參考

郵件營銷大師提供了兩個主對象Message和User用于郵件個性化支持。通過這兩個對象的腳本支持，您可以自定義郵件的發件人、主題、正文、附件等的所有要素。個性化對象主要用于全局個性化腳本中。

Message對象介紹

個性化腳本中的Message對象提供了如下的屬性和方法允許您對郵件進行控制：

屬性 類型 說明/td>
FromName 文本 讀寫發件人的顯示名稱，默認值為發件人帳戶的名稱。

範例
Message.FromName = "Nesox Solutions"
FromEmail 文本 讀寫發件人的郵件地址，缺省值為發件人的郵件地址。

範例
Message.FromEmail = "someone@nesox.com"
ReplyName 文本 讀寫回複人的顯示名稱，缺省值為回複人帳戶的名稱。

範例
Message.ReplyName = "Nesox Solutions"
ReplyEmail 文本 讀寫回複人的郵件地址，缺省值為回複人的郵件地址。

範例
Message.ReplyEmail = "someone@nesox.com"
Subject 文本 讀寫郵件主題。

範例
Message.Subject = Message.Subject & " for " & User("FirstName")
CC 文本 讀寫郵件的抄送地址或者地址列表。

範例
If User("AlternativeEmail") <> "" Then Message.CC = User("AlternativeEmail")
BCC 文本 讀寫郵件的暗送地址或者地址列表。

範例
Message.BCC = "someone@nesox.com"
Message.BCC = "someone1@nesox.com; someone2@nesox.com"
Text 對象 訪問郵件的文本內容，Message.Text的類型為Body對象類型。使用方法請參考Body對象。

範例
Message.Text.LoadFromFile "c:\newsletter1.txt"
HTML 對象 訪問郵件的HTML內容，Message.HTML的類型為Body對象類型。使用方法請參考Body對象。

範例
Message.Html.LoadFromFile "c:\newsletter1.htm"
Format 文本 讀寫郵件格式，可選項格式包括"Text", "Html" 或 "Automatic"。

範例
Message.Format = User("Format")
Body 對象 在嵌入式腳本中使用，等價于Text或HTML對象。
Attachments 對象 訪問郵件的附件集。

範例
Message.Attachments.Add "c:\news.pdf"
Cancelled 是否 判斷該郵件的生成或發送是否已經取消。

範例
If Message.Cancelled Then MsgBox Message.Email & " was cancelled."
DateTime 日期時間 訪問該郵件的最後操作時間。

範例 (用于成功發送或失敗發送的腳本模塊中)
Set Sys = CreateObject("Scripting.FileSystemObject")
Set Txt = Sys.OpenTextFile("c:\mylog.txt", 8)
Txt.Write(Message.Email & ": " & Message.DateTime & vbCrlf)
Txt.Close
ErrorNumber 數字 訪問郵件創建或者發送失敗的錯誤號。

範例 (用于失敗發送的腳本模塊中)
Set Sys = CreateObject("Scripting.FileSystemObject")
Set Txt = Sys.OpenTextFile("c:\mylog.txt", 8)
Txt.Write(Message.Email & ": " & Message.ErrorNumber & " " & Message.ErrorText & vbCrlf)
Txt.Close
ErrorText 文本 訪問郵件創建或者發送失敗的錯誤信息。

範例 (用于失敗發送的腳本模塊中)
Set Sys = CreateObject("Scripting.FileSystemObject")
Set Txt = Sys.OpenTextFile("c:\mylog.txt", 8)
Txt.Write(Message.Email & ": " & Message.ErrorNumber & " " & Message.ErrorText & vbCrlf)
Txt.Close
UserKey 文本 訪問收件人的關鍵字字段內容。用于發送後的回調處理。

範例 (用于成功發送的腳本模塊中)
Message.ListConnection.Execute "UPDATE List SET DeliveryTime=Now() WHERE ID=" & Message.UserKey
Email 文本 訪問收件人的郵件地址。用于發送後的回調處理。

範例 (用于成功發送的腳本模塊中)
Message.ListConnection.Execute "UPDATE List SET DeliveryTime=Now() WHERE Email='" & Message.Email & "'"
ListConnection 對象 ADO數據庫連接對象，連接至郵件列表數據庫。

範例
Set Sys = CreateObject("Scripting.FileSystemObject")
Set Txt = Sys.OpenTextFile("c:\mylog.txt", 8)
Txt.Write(Message.Email & ": " & Message.DateTime)
Txt.Close
方法 返回值 說明
Reset 無 重置Message對象，清空主題，內容和附件。
Cancel 無 取消該郵件的個性化創建和發送操作。

　

Body(Message.Text, Message.Html)對象介紹

Body對象可幫助您控制郵件的純文本或者HTML正文。Message.Body只能在嵌入式腳本中使用，全局個性化腳本中進行郵件正文控制請使用Message.Text或Message.Html。Body對象提供了如下的屬性和方法允許您對郵件內容進行控制：

屬性 類型 說明/td>
Text 文本 讀寫郵件純文本內容或HTML源碼字符串。

範例
Message.Text.Text = "Hello!"
Message.HTML.Text = "<b>Hello!</b>"
方法 返回值 說明
Write 無 在郵件純文本內容或HTML源碼中輸出文字。

範例
Body.Write "String"

特別說明
在嵌入式腳本中, ="String" 等價于 Body.Write "String"
WriteLine 無 在郵件純文本內容或HTML源碼中輸出文字並換行。

範例
Body.WriteLine "String"
InsertFromFile 無 讀取文件內容並插入至純文本內容或HTML源碼。

範例
Body.InsertFromFile "c:\copyright.htm"
LoadFromFile 無 讀取文件內容並且覆蓋至純文本內容或HTML源碼。

範例
Body.LoadFromFile "c:\newsletter1.htm"
Clear 無 清空郵件的純文本內容或HTML源碼。

範例
Message.Text.Clear
End 無 停止純文本內容或HTML源碼的生成。

範例
Message.Text.End
Message.Text.WriteLine "String"  ' this will not work any more
SaveToFile 無 將郵件純文本內容或HTML源碼內容保存至文件。

範例
Message.Html.SaveToFile "c:\" & User("Email") & ".htm"
Message.Text.SaveToFile "c:\" & User("Email") & ".txt"

Attachments對象介紹

個性化腳本中的Attachments對象提供了如下的屬性和方法允許您對郵件附件進行控制：

屬性 類型 說明/td>
Count 數字 讀取郵件中的附件數。
方法 返回值 說明
Add 無 添加一個附件文件。

範例
Message.Attachments.Add "FilePath"
Remove 無 根據文件名或附件索引號刪除一個附件文件。

範例
Message.Attachments.Remove "FilePath"
Clear 無 刪除所有附件文件。

範例
If User("NoAttachment") = "1" Then
  Message.Attachments.Clear
End If
Find 數字 根據文件名稱查找附件，返回附件索引號。

範例
If Message.Attachments.Find("FilePath") >= 0 Then
  Message.Attachments.Remove "FilePath"
End If
　

User對象介紹

User對象主要用于訪問聯系人的屬性用于郵件內容的個性化生成，它提供了如下的屬性和方法：

屬性 類型 說明/td>
Properties 文字 讀寫聯系人的屬性字段。

範例
Message.Subject = User.Properties("FirstName") & ", " & Message.Subject

特別說明
1. User("fieldname")等價于User.Properties("fieldname")
2. 在嵌入式腳本中，[fieldname]也等價于User.Properties("fieldname")
Email 文字 讀寫聯系人的郵件地址。

範例
If User.Email = "" And User("AlternativeEmail") <> "" Then
  User.Email = User("AlternativeEmail")
End If
FullName 文字 讀寫聯系人的姓名。

範例
If User.FullName = "" Then
  User.FullName = User("FirstName")
End If
Key 文字 讀寫聯系人的主鍵字段。

範例
If User.Key <> "" Then
  Message.HTML = Replace(Message.HTML, "#key#", User.Key)
End If
Connection 對象 ADO數據庫連接對象，連接至郵件列表數據庫。

範例
Set rs = Connection.Execute("SELECT OrderNo FROM Orders WHERE UserID=" & User("ID"))
User("OrderNo") = rs("OrderNo")
方法 返回值 說明
Clear 無 刪除對象中所有的用戶屬性。

範例
User.Clear

相關主題