如何在Outlook中將所有收件人姓名插入電子郵件正文?
有時,在Outlook中編寫電子郵件時,可能需要在郵件正文中插入所有收件人的姓名。 當然,您可以將名稱一一複制並粘貼到正文中。 但是,如果需要粘貼數十個收件人名稱,將非常麻煩。 本文,我將討論一種解決Outlook中這項工作的簡單方法。
在Outlook中使用VBA代碼將所有收件人姓名插入電子郵件正文
在Outlook中使用VBA代碼將所有收件人姓名插入電子郵件正文
以下VBA代碼可以幫助您將“收件人”字段中的所有收件人姓名插入到郵件正文中,方法如下:
1。 啟動Outlook,然後按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。
2。 點擊 插入 > 模塊,然後將以下代碼粘貼到 模塊 窗口。
VBA代碼:將收件人姓名插入郵件正文中:
Sub InsertRecipientNamesToBody()
Dim xMailItem As Outlook.MailItem
Dim xRecipient As Outlook.Recipient
Dim xRecipAddress, xRecipNames, xRecipName, xFilterAddr As String
Dim xItems As Outlook.Items
Dim i As Integer
Dim xFoundContact As Outlook.ContactItem
Dim xDoc As Word.Document
On Error Resume Next
Set xMailItem = Outlook.ActiveInspector.CurrentItem
xMailItem.Recipients.ResolveAll
For Each xRecipient In xMailItem.Recipients
xRecipAddress = xRecipient.Address
Set xItems = Application.Session.GetDefaultFolder(olFolderContacts).Items
For i = 1 To 3
xFilterAddr = "[Email" & i & "Address] = " & xRecipAddress
Set xFoundContact = xItems.Find(xFilterAddr)
If Not (xFoundContact Is Nothing) Then
xRecipNames = xRecipNames & xFoundContact.FullName & Chr(10)
Exit For
End If
Next
If (xFoundContact Is Nothing) Then
xRecipName = Split(xRecipAddress, "@")(0)
xRecipNames = xRecipNames & xRecipName & Chr(10)
End If
Next
Set xDoc = xMailItem.GetInspector.WordEditor
xDoc.Content.InsertAfter xRecipNames
Set xMailItem = Nothing
Set xRecipient = Nothing
Set xItems = Nothing
Set xFoundContact = Nothing
End Sub
3。 然後仍然在 Microsoft Visual Basic for Applications 窗口中,單擊 工具 > 參考 去 參考-Project1 對話框,然後檢查 Microsoft Word對像庫 選項從 可用參考 列錶框,請參見屏幕截圖:
4。 然後點擊 OK 要關閉對話框,現在,您應該將此程式碼新增至 快速訪問工具欄.
5。 點擊建立新訊息 新郵件在 您的留言 窗口中,單擊 自定義快速訪問工具欄 圖標,然後選擇 更多命令,請參見屏幕截圖:
6。 在 Outlook選項 對話框:
(1.)選擇 宏 來自 從中選擇命令 下拉列表;
(2.)然後選擇您剛才插入的VBA代碼名稱;
(3.)點擊 加入 按鈕將代碼添加到 自定義快速訪問工具欄 列錶框。
7。 然後,將一個宏圖標顯示到 快速訪問工具欄 如下圖所示:
8。 現在,當您按一下巨集圖示時,「收件者」欄位中的收件者姓名將插入郵件正文中,如下圖所示:
最佳辦公生產力工具
Kutools for Outlook - 超過 100 種強大的功能可增強您的 Outlook
🤖 人工智慧郵件助手: 具備人工智慧魔力的即時專業電子郵件——一鍵天才回覆、完美語調、多語言掌握。輕鬆改變電子郵件! ……
📧 電子郵件自動化: 外出(適用於 POP 和 IMAP) / 安排發送電子郵件 / 發送電子郵件時按規則自動抄送/密件副本 / 自動轉送(進階規則) / 自動添加問候語 / 自動將多收件者電子郵件拆分為單獨的訊息 ...
📨 電子郵件管理: 輕鬆回憶電子郵件 / 按主題和其他人阻止詐騙電子郵件 / 刪除重複的電子郵件 / 進階搜索 / 合併資料夾 ...
📁 附件專業版: 批量保存 / 批量分離 / 批量壓縮 / 自動保存 / 自動分離 / 自動壓縮 ...
🌟 介面魔法: 😊更多又漂亮又酷的表情符號 / 使用選項卡式視圖提高 Outlook 工作效率 / 最小化 Outlook 而不是關閉 ...
👍 一鍵奇蹟: 使用傳入附件回覆全部 / 反網路釣魚電子郵件 / 🕘顯示寄件者的時區 ...
👩🏼🤝👩🏻 通訊錄和行事曆: 從選定的電子郵件中大量新增聯絡人 / 將聯絡人群組拆分為各組 / 刪除生日提醒 ...
超過 100特點 等待您的探索! 按此處了解更多。