跳到主要内容

如何在Outlook中将所有收件人姓名插入电子邮件正文?

作者:晓阳 最后修改时间:2018-04-10

有时,在Outlook中编写电子邮件时,可能需要在邮件正文中插入所有收件人的姓名。 当然,您可以将名称一一复制并粘贴到正文中。 但是,如果需要粘贴数十个收件人名称,将非常麻烦。 本文,我将讨论一种解决Outlook中这项工作的简单方法。

在Outlook中使用VBA代码将所有收件人姓名插入电子邮件正文


在Outlook中使用VBA代码将所有收件人姓名插入电子邮件正文

以下VBA代码可以帮助您将“收件人”字段中的所有收件人姓名插入到邮件正文中,方法如下:

1。 启动Outlook,然后按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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应用程序 窗口中,单击 工具 > 参考资料参考-Project1 对话框,然后检查 Microsoft Word对象库 选项从 可用参考 列表框,请参见屏幕截图:

4。 然后点击 OK 要关闭对话框,现在,您应该将此代码添加到 快速访问工具栏.

5。 通过单击创建新消息 新邮件留言 窗口中,单击 自定义快速访问工具栏 图标,然后选择 更多命令,请参见屏幕截图:

6。 在 Outlook选项 对话框:

(1.)选择 来自 从中选择命令 下拉列表;

(2.)然后选择您刚才插入的VBA代码名称;

(3.)点击 添加 按钮将代码添加到 自定义快速访问工具栏 列表框。

7。 然后,将一个宏图标显示到 快速访问工具栏 如下图所示:

8。 现在,当您单击宏图标时,来自“收件人”字段的收件人姓名将被插入到邮件正文中,如以下屏幕截图所示:


最佳办公生产力工具

最新消息:Kutools for Outlook 发布 免费版本!

体验全新的 Kutools for Outlook 免费版本拥有 70 多项令人难以置信的功能,您可以永久使用! 点击立即下载!

🤖 Kutools人工智能 : 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件! ...

📧 电子邮件自动化: 自动回复(适用于 POP 和 IMAP)  /  安排发送电子邮件  /  发送电子邮件时按规则自动抄送/密件抄送  /  自动转发(高级规则)   /  自动添加问候语   /  自动将多收件人电子邮件拆分为单独的消息 ...

📨 电子邮件管理: 撤回电子邮件  /  按主题和其他人阻止诈骗电子邮件  /  删除重复的电子邮件  /  高级搜索  /  合并文件夹 ...

📁 附件专业版批量保存  /  批量分离  /  批量压缩  /  自动保存   /  自动分离  /  自动压缩 ...

🌟 界面魔法: 😊更多又漂亮又酷的表情符号   /  收到重要邮件时提醒您  /  最小化 Outlook 而不是关闭 ...

👍 一键奇迹: 使用传入附件回复全部  /   反网络钓鱼电子邮件  /  🕘显示发件人的时区 ...

👩🏼‍🤝‍👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人  /  将联系人组拆分为各个组  /  删除生日提醒 ...

只需单击一下即可立即解锁 Kutools for Outlook -永久免费. 别等了, 立即下载并提高您的效率!

kutools for outlook 功能1 kutools for outlook 功能2
 

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations