有时，您可能希望向特定域中的所有联系人批量发送电子邮件。 遇到这种情况，可以使用本文介绍的方法快速搞定。
由于某些原因，有时您可能需要向 Outlook 中特定域中的所有联系人发送电子邮件。 例如，您需要向电子邮件地址属于特定电子邮件域的所有同事发送电子邮件。 如果您手动查找这些联系人，将非常麻烦。 因此，在这里我们将介绍一种快速获取它的方法。 下面是详细步骤和VBA代码。
批量向特定域中的所有联系人发送电子邮件
- 首先，启动您的 Outlook 应用程序。
- 然后按“Alt + F11”键按钮访问 Outlook VBA 编辑器，
- 接下来您需要打开一个未使用的模块或直接插入一个新模块。
- 随后，将以下 VBA 代码复制并粘贴到其中。
Sub SendanEmailtoAllContactsinSpecificDomain()
Dim objContactsFolder As Outlook.Folder
Dim objItem As Object
Dim objContact As Outlook.ContactItem
Dim strEmail1Address, strEmail2Address, strEmail3Address As String
Dim objMail As Outlook.MailItem
Dim objMailRecipients As Outlook.Recipients
Set objMail = Application.CreateItem(olMailItem)
Set objMailRecipients = objMail.Recipients
Set objContactsFolder = Application.Session.GetDefaultFolder(olFolderContacts)
For Each objItem In objContactsFolder.Items
If objItem.Class = olContact Then
Set objContact = objItem
strEmail1Address = objContact.Email1Address
strEmail2Address = objContact.Email2Address
strEmail3Address = objContact.Email3Address
'Change the specific email domain
If InStr(strEmail1Address, "@datanumen.com") > 0 Then
objMail.Recipients.Add (strEmail1Address)
ElseIf InStr(strEmail2Address, "@datanumen.com") > 0 Then
objMail.Recipients.Add (strEmail2Address)
ElseIf InStr(strEmail3Address, "@datanumen.com") > 0 Then
objMail.Recipients.Add (strEmail3Address)
End If
End If
Next objItem
objMail.Display
End Sub
- 之后，您需要将 Outlook 宏安全级别更改为低。
- 或者，如果您经常需要发送此类电子邮件，也建议将新宏添加到快速访问工具栏。
- 此时，您可以试一试。 单击工具栏中的“运行”图标。
- 最终，将弹出一封新电子邮件。 您可以发现特定电子邮件域中的所有电子邮件地址都已包含在“收件人”字段中，如下图所示：
面对 PST 错误永远不要恐慌
用户在遇到严重的 PST 问题时往往会感到恐慌，例如无法访问的 PST 错误、病毒感染的 PST 文件或 腐败的前景 PST 数据等等。不过，最好冷静下来，尽快尝试解决问题。首先，您可以尝试重启 Outlook。如果问题仍然存在，您可以再次使用收件箱修复工具 Scanpst.exe。但是，如果此方法无效，您可以求助于更专业的工具，例如 DataNumen Outlook Repair.
作者简介：
Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 损坏的sql 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com