撰寫Outlook電子郵件時如何在“收件人”字段中批量展開所有聯繫人組

許多使用者都希望有一種方法，讓他們在撰寫 Outlook 電子郵件時，能夠批次展開「收件者」欄位中的所有聯絡人群組。因此，在本文中，我們將與您分享這樣一種方法。

通常，要在“收件人”字段中展開聯繫人組，您可以單擊組名前的“+”圖標。 但是，通過這種方式，如果“收件人”字段中有許多聯繫人組，並且您想擴展所有聯繫人組，這將有些繁瑣。 因此，在這裡我們將與您分享一種只需單擊即可快速擴展“收件人”字段中所有組的方法。

批量展開“收件人”字段中的所有聯繫人組

1. 首先，啟動Outlook程序。
2. 然後在Outlook主窗口中，按“ Alt + F11”鍵按鈕。
3. 接下來您將進入 VBA 編輯器屏幕，您應該在其中訪問未使用的模塊或簡單地插入一個新模塊。
4. 隨後，將以下VBA代碼複製到該模塊中。

Sub ExpandAllContactGroupsInToField()
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim bContactGroupFound As Boolean
    Dim i As Long
 
    'Get the current mail
    Set objMail = ActiveInspector.CurrentItem
    bContactGroupFound = True
 
    Do While bContactGroupFound = True
       Set objRecipients = objMail.Recipients
       bContactGroupFound = False
 
       'Expand all contact groups in "To" field
       For i = objRecipients.Count To 1 Step -1
           If objRecipients(i).Type = olTo Then
              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
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
                     Else
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
                        bContactGroupFound = True
                     End If
                 Next
                 objRecipients(i).Delete
              End If
          End If
      Next i
      objRecipients.ResolveAll
    Loop
End Sub

5. 之後，您只需單擊右上角的十字圖標即可退出當前窗口。
6. 稍後，您需要將此VBA項目添加到“消息”窗口的“快速訪問工具欄”。

• 首先，創建一個新郵件。
• 然後單擊左上角的向下箭頭。
• 接下來選擇“更多命令”。
• 在新的對話框中，您可以按照下圖所示的步驟完成向快速訪問工具欄添加宏。

7. 最後，您可以嘗試一下：

• 首先，像往常一樣創建並撰寫一封新郵件。
• 然後在“收件人”字段中添加幾個聯繫人組。
• 之後，您可以單擊快速訪問工具欄中的宏按鈕。
• 一次，所有聯繫人組將被展開，如下圖所示：

及時拯救您的Outlook數據

通常，一旦您的 Outlook 遇到任何問題，您首先會想到收件箱修復工具。 但是，通常不會產生任何效果。 在這種情況下，建議重新使用更有效和值得信賴的實用程序，例如 DataNumen Outlook Repair。 它可以 修復PST 無論您的PST文件受到多大的破壞，都可以立即刪除該文件。

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 恢復SQL 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM