如何使用 Outlook VBA 從電子郵件的收件人列表中快速創建聯繫人組

Outlook解決方案 2025 年 9 月 29 日
立即分享：

有時，當您發送或接收具有許多收件人的電子郵件時，您可能希望為這些收件人創建一個聯繫人組。 本文將介紹一種使用 Outlook VBA 快速完成它的方法。

在我們之前的文章中，如何從收件人列表創建聯繫人組”，我們已經學會了一種常用的方法來為電子郵件收件人創建聯繫人組。 即首先從郵件中選擇並複制收件人，然後手動創建聯繫人組並將收件人粘貼到“成員->”字段中。 顯然，這種手段極其繁瑣。 因此，這裡我們將介紹另一種方法，即利用 Outlook VBA 快速實現新的聯繫人組。 您只需按一個按鈕，無需重複複製和粘貼。 繼續閱讀以獲取詳細的步驟和 VBA 代碼。

從電子郵件的收件人列表創建聯繫人組

  1. 首先，您應該開啟 Outlook 中的「開發人員」標籤。
  2. 然後在此選項卡下，您可以找到並單擊“Visual Basic”按鈕。
  3. 之後，將打開一個新的“Microsoft Visual Basic for Applications”窗口。 現在您應該通過單擊“插入”>“模塊”打開一個新模塊。插入新模塊
  4. 接下來在新模塊窗口中，您可以將以下代碼複製並粘貼到其中。
Sub createcontactgroupforrecipients()
    Dim obApp As Application
    Dim olSel As Selection
    Dim obj As Object
    Dim oMail As MailItem
    Dim tempMail As MailItem
    Dim Recips As Recipients
    Dim ConGroup As DistListItem
    Dim strName As String
 
    Set obApp = Outlook.Application
    Set olSel = obApp.ActiveExplorer.Selection
 
    For Each obj In olSel
        If obj.Class = olMail Then
           Set oMail = obj
           Set tempMail = oMail.ReplyAll
           Set Recips = tempMail.Recipients
           Set ConGroup = obApp.CreateItem(olDistributionListItem)
           strName = InputBox("Specify a name for the new contact group:")
           With ConGroup
                .AddMembers Recips
                .DLName = strName
                'Use ".Save" to directly save the new contact group
                .Display
           End With
           tempMail.Close olDiscard
        End If
     Next
End Sub

將 VBA 代碼複製到新模塊中

  1. 稍後您可以退出當前的“Visual Basic”窗口並繼續將新宏添加到快速訪問工具欄。 單擊快速訪問工具欄中的向下箭頭，然後從下拉列表中選擇“更多命令”。
  2. 隨後，您將進入“Outlook 選項”窗口。 此時，您需要採取以下步驟：
  • 首先，將“選擇命令”設置為“宏”。
  • 然後尋找並突出先前添加的宏。
  • 接下來單擊中心的“添加”按鈕。
  • 最後按“確定”按鈕。將新的宏添加到快速訪問工具欄
  1. 之後，您可以返回 Outlook 郵件窗格並嘗試一下。
  • 首先，您可以在任何郵件文件夾中投放一封郵件。
  • 然後單擊快速訪問工具欄中的按鈕，如下圖所示：選擇電子郵件並單擊快速訪問工具欄中的按鈕
  • 接下來您將收到一個消息框，要求您指定新聯繫人組的名稱。為新聯繫人組指定名稱
  • 稍後單擊“確定”按鈕。 包含所有選定電子郵件收件人的新聯繫人組將立即打開。 您可以點擊“保存並關閉”來保存它。保存聯繫人組

Outlook數據保護中的必備功能

由於 Outlook 容易受到攻擊，您應該採取足夠的預防措施來保護他們的 Outlook 數據。 首先，您應該定期備份 Outlook 數據。 此外，您需要知道如何查找並運行內置修復工具 Scanpst.exe。 最後但並非最不重要的必要條件是出色的外部 損壞的 Outlook 數據修復工具如 DataNumen Outlook Repair，如果備份和 Scanpst.exe 都失敗，這將幫助您。

作者簡介：

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

立即分享：

評論被關閉。