向聯繫人組發送 Outlook 電子郵件時如何延遲向特定成員的傳遞

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

立即分享：

評論被關閉。