我已經能夠根據需要創建自動電子郵件回復。但是，我想在電子郵件正文中添加文本并抄送以添加電子郵件地址。我應該如何添加它？
Sub FwdSelToAddr()
Dim objOL As Outlook.Application
Dim objItem As Object
Dim objFwd As Outlook.MailItem
Dim strAddr As String
Dim objRecip As Outlook.Recipient
Dim objReply As MailItem
On Error Resume Next
Set objOL = Application
Set objItem = objOL.ActiveExplorer.Selection(1)
If Not objItem Is Nothing Then
strAddr = ParseTextLinePair(objItem.Body, "Email:")
If strAddr <> "" Then
Set objFwd = objItem.Forward
objFwd.To = strAddr
objFwd.Display
Else
MsgBox "Could not extract address from message."
End If
End If
Set objOL = Nothing
Set objItem = Nothing
Set objFwd = Nothing
End Sub
這是我到目前為止所做的。我只想在自動回復的正文中添加 CC 電子郵件地址和文本。
uj5u.com熱心網友回復：
如果需要修改或更新訊息正文，則需要通過設定Cc屬性和一個來稍微修改代碼：HTMLBody
If strAddr <> "" Then
Set objFwd = objItem.Forward
objFwd.To = strAddr
objFwd.Cc = "[email protected]"
objFwd.HTMLBody = "<b>Hello world</b>"
objFwd.Display
Else
<body>請注意，要保留原始電子郵件中的郵件正文，您需要在開始和結束</body>標簽之間插入您的內容。如果您需要在訊息的開頭添加，請在開始標記之后粘貼您的附加文本，如果您打算將其粘貼在訊息末尾 - 在結束標記之前粘貼。
您也可能會發現該類的Recipients屬性MailItem很有幫助。它提供了一種更方便的方式來設定 Outlook 專案的收件人。您可以在我為技術博客撰寫的文章 -如何：以編程方式在 Outlook 中填寫收件人、抄送和密件抄送欄位 中閱讀有關該屬性的更多資訊。
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/534682.html
標籤：VBA外表办公室365