向联系人组发送 Outlook 电子邮件时如何延迟向特定成员的传递

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

本文将分享一段VBA代码，它可以让您在向Outlook中的联系人组发送电子邮件时快速延迟发送给特定成员。

当你撰写并发送一封Outlook邮件到一个联系人组时，如果你想延迟将这封邮件发送给该组中的特定成员，你可以使用以下方法来实现。 它会自动扩展联系人组并生成延迟到特定成员的相同电子邮件。 现在，继续阅读以获得详细的步骤。

将 Outlook 电子邮件发送到联系人组时延迟传递给特定成员

向联系人组发送电子邮件时延迟发送给特定成员

  1. 首先，启动 Outlook 程序。
  2. 然后，在出现的 Outlook 主窗口中，您应该按下“Alt + F11”键按钮。
  3. 随后，您将可以访问 Outlook VBA 编辑器，您需要在其中插入一个新模块或只是打开一个未使用的模块。
  4. 之后，您可以将以下 VBA 代码复制并粘贴到该模块中。
Sub DelayEmail_aSpecificMemberinContactGroup()
    Dim objCurrentMail As MailItem
    Dim objRecipients As Recipients
    Dim ContactGroupFound As Boolean
    Dim i, n As Long
    Dim objDelayedMail As MailItem
 
    Set objCurrentMail = ActiveInspector.CurrentItem
    ContactGroupFound = True
 
    While ContactGroupFound = True
          Set objRecipients = objCurrentMail.Recipients
          ContactGroupFound = False
 
          'Expand the contact group in "To" field
          For i = objRecipients.count To 1 Step -1
              If objRecipients(i).AddressEntry.DisplayType <> olUser Then
                 For n = 1 To objRecipients(i).AddressEntry.Members.count
                     If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
                        objCurrentMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
                     Else
                        objCurrentMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
                        ContactGroupFound = True
                     End If
                 Next
                 objRecipients(i).Delete
              End If
          Next i
          objRecipients.ResolveAll
    Wend

    'Find the specific memebr in the recipients
    For Each objRecipient In objRecipients
        If objRecipient.Address = "shelly@datanumen.com" Then
 
           'Create a same email
           Set objDelayedMail = objCurrentMail.Copy
           With objDelayedMail
                .To = ""
                .Recipients.Add objRecipient.Address
                .Recipients.ResolveAll
                'Change the deferred delivery time as per your needs
                .DeferredDeliveryTime = (Date + 1) & " 09:00:00"
                .Send
          End With
 
          objRecipient.Delete
       End If
    Next
 
    objCurrentMail.Send
End Sub

VBA 代码 - 将 Outlook 电子邮件发送到联系人组时延迟传递给特定成员

  1. 接下来，为了以后方便访问，最好将新添加的宏添加到消息窗口的快速访问工具栏中。
  2. 然后您应该更改您的 Outlook 宏设置以启用“信任中心”的“宏设置”中的所有宏。
  3. 最终，您可以拍摄。
  • 首先，像往常一样给联络小组写一封这样的电子邮件。
  • 然后您可以单击快速访问工具栏中的新宏按钮。
  • 将立即创建一封相同的电子邮件，并将其设置为在预定时间发送给特定成员。
  • 同时，当前邮件将发送给联系人组中的其他成员。

留意您的 Outlook 周围的所有风险

在当今时代，病毒和间谍软件日益猖獗。它们通常伪装成看似无害的电子邮件。因此，您应该警惕 Outlook 中的各种风险，例如恶意电子邮件。您需要对来自未知联系人的电子邮件保持警惕。此外，为了…… 修复Outlook 一旦你的 PST 文件被恶意软件攻击，你必须准备一个有经验的修复工具，比如 DataNumen Outlook Repair.

作者简介：

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

立即分享：

评论被关闭。