如何通过 Outlook VBA 仅向特定域中的用户发送纯文本电子邮件

展望解决方案 2025 年 9 月 29 日
立即分享：

有些用户希望只向电子邮件地址位于特定域中的收件人发送纯文本电子邮件。 本文将介绍一种获取它的智能方法。

在我之前的文章“如何始终以纯文本格式为特定联系人发送 Outlook 电子邮件”，您可以获得 2 种仅向特定联系人发送纯文本电子邮件的方法。 如果你想向特定邮件域中的所有联系人发送这样的邮件，使用那篇文章中的2种方式会有点愚蠢和麻烦。 因此，在这里我们将与您分享另一种方法，这种方法更有效。

通过 Outlook VBA 仅向特定域中的用户发送纯文本电子邮件

仅向特定域中的用户发送纯文本电子邮件

  1. 首先，您应该启动 Outlook 应用程序。
  2. 然后，您需要在 Outlook 主屏幕中按“Alt + F11”键按钮。
  3. 接下来，将出现“Microsoft Visual Basic for Applications”窗口。 在其中，您应该打开“ThisOutlookSession”项目。
  4. 随后，将以下 VBA 代码复制并粘贴到该项目中。
'Occurs when sending an Outlook email
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipient As Outlook.recipient
    Dim strAddress, strDomain As String
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       For Each objRecipient In objMail.Recipients
           'Get the recipient's email domain
           strAddress = objRecipient.Address
           strDomain = Right(strAddress, Len(strAddress) - InStr(strAddress, "@"))
 
           'If the domain is the specific one
           'Change the "datanumen.com" as per your needs
           If strDomain = "datanumen.com" Then
              'Convert the email format to plain text
              objMail.BodyFormat = olFormatPlain
              objMail.Save
              Exit For
           End If
      Next
    End If
End Sub

VBA 代码 - 仅向特定域中的用户发送纯文本电子邮件

  1. 之后，您必须签署此宏。 单击“工具”>“数字签名”，然后按照屏幕上的向导完成它。
  2. 稍后，退出当前窗口。 然后切换到“开发人员”选项卡并点击“宏安全”按钮。 在新的弹出对话框中，您应该更改设置以启用数字签名的宏。
  3. 最后，你可以拍一张照片。 为特定电子邮件域中的一个收件人创建并撰写电子邮件。 然后点击“发送”按钮将其发送出去。 在此过程中，Outlook 会自动将电子邮件格式更改为纯文本。

恢复损坏的 Outlook 文件

Outlook 容易受到病毒感染、恶意软件攻击、电涌等。 因此，我们应该学习一些在损坏后恢复 Outlook 数据的技巧。 首先，您应该检查您的备份。 如果备份太旧或无法恢复，您可以使用内置工具 - Scanpst.exe。 当然， 收件箱维修工具 并不总是有效。 因此，您最好准备一个可靠且有说服力的外部工具，例如 DataNumen Outlook Repair. 由于其高恢复率，因此受到高度推荐。

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 损坏的sql 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com

立即分享：

评论被关闭。