有时，当您发送或接收包含许多收件人的电子邮件时，您可能希望为这些收件人创建一个联系人组。 本文将介绍一种使用 Outlook VBA 快速完成的方法。
在我们之前的文章“如何从收件人列表创建联系人组”，我们已经了解了为电子邮件收件人创建联系人组的常用方法。 即首先从邮件中选择并复制收件人，然后手动创建一个联系人组并将收件人粘贴到“成员->”字段中。 显然，这种手段极其繁琐。 因此，在这里我们将介绍另一种方法，即利用Outlook VBA快速实现一个新的联系人组。 您只需按下一个按钮，无需重复复制和粘贴。 继续阅读以获得详尽的步骤和 VBA 代码。
从电子邮件的收件人列表创建联系人组
- 对于作为tart，您应该转到 Outlook 中的“开发人员”选项卡。
- 然后在此选项卡下，您可以找到并单击“Visual Basic”按钮。
- 之后，将打开一个新的“Microsoft Visual Basic for Applications”窗口。 现在您应该通过单击“插入”>“模块”打开一个新模块。
- 接下来在新模块窗口中，您可以将以下代码复制并粘贴到其中。
Sub createcontactgroupforrecipients()
Dim obApp As Application
Dim olSel As Selection
Dim obj As Object
Dim oMail As MailItem
Dim tempMail As MailItem
Dim Recips As Recipients
Dim ConGroup As DistListItem
Dim strName As String
Set obApp = Outlook.Application
Set olSel = obApp.ActiveExplorer.Selection
For Each obj In olSel
If obj.Class = olMail Then
Set oMail = obj
Set tempMail = oMail.ReplyAll
Set Recips = tempMail.Recipients
Set ConGroup = obApp.CreateItem(olDistributionListItem)
strName = InputBox("Specify a name for the new contact group:")
With ConGroup
.AddMembers Recips
.DLName = strName
'Use ".Save" to directly save the new contact group
.Display
End With
tempMail.Close olDiscard
End If
Next
End Sub
- 稍后您可以退出当前的“Visual Basic”窗口并继续将新宏添加到快速访问工具栏。 单击快速访问工具栏中的向下箭头，然后从其下拉列表中选择“更多命令”。
- 随后，您将进入“Outlook 选项”窗口。 此时，您需要执行以下步骤：
- 首先，将“Choose commands from”设置为“Macros”。
- 然后找出并推出之前添加的宏。
- 接下来单击中心的“添加”按钮。
- 最后按“确定”按钮。
- 之后，您可以返回到 Outlook 邮件窗格并试一试。
- 首先，您可以在任何邮件文件夹中投放一封邮件。
- 然后点击快速访问工具栏中的按钮，如下图：
- 接下来您将收到一个消息框，要求您为新联系人组指定一个名称。
- 稍后单击“确定”按钮。 包含所有选定电子邮件收件人的新联系人组将立即打开。 您可以点击“保存并关闭”来保存它。
Outlook 数据保护中的必备工具
由于 Outlook 容易受到攻击，您应该采取足够的预防措施来保护他们的 Outlook 数据。 首先，您应该定期备份 Outlook 数据。 此外，您还需要了解如何找到并运行内置修复工具 Scanpst.exe。 最后但并非最不重要的必要条件是恒星外部 损坏的 Outlook 数据修复工具，如 DataNumen Outlook Repair，如果 backup 和 Scanpst.exe 都失败，它会来救你。
作者简介：
Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 修复 SQL Server mdf数据库错误 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com