如何使用 Outlook VBA 快速將多個聯繫人導出到一個 VCard 文件

Outlook解決方案 2025 年 9 月 29 日

如果您的 Outlook 中有多個聯繫人，並且希望將它們導出到單個 vCard 文件而不是單獨的文件，則可以使用本文中介紹的智能方法。

例如，您需要將數百個聯繫人發送給其他人。您可能希望將它們組合成一個 vCard 文件然後發送，而不是將它們作為單獨的 vCard 文件發送。其實我之前的文章——《如何將多個 Outlook 聯繫人導出為單個 VCard 文件”介紹了一個方法。但是，這種方法要求您擁有 Gmail 帳戶並使用 Gmail 的“導入和導出”功能。簡而言之，這相當麻煩。因此，在這裡我們將向您介紹一種更方便的方法。

快速將多個聯繫人導出到一個 vCard 文件

首先，啟動您的Outlook應用程序。
然後，點擊“Alt + F11”鍵以訪問 VBA 編輯器。
接下來，在新窗口中，將 VBA 代碼放入模塊中。

Sub ExportMultipleContactsIntoOneVCardFile()
    Dim objSelection As Outlook.Selection
    Dim strLocalDrive, strFolder As String
    Dim i As Long
    Dim objContact As Outlook.ContactItem
    Dim strVCardFile As String
 
    'Get all selected contacts
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not objSelection Is Nothing Then
       'Save contacts in "E:\Temp Contacts\"
       strLocalDrive = "E:"
       strFolder = "Temp Contacts"
       MkDir (strLocalDrive & "\" & strFolder & "\")
 
       'Save all selected contacts as separate vCards
       For i = objSelection.Count To 1 Step -1
           If TypeName(objSelection(i)) = "ContactItem" Then
              Set objContact = objSelection(i)
 
              strVCardFile = strLocalDrive & "\" & strFolder & "\" & objContact.FullName & ".vcf"
              objContact.SaveAs strVCardFile, olVCard
           End If
       Next
 
       'Use cmd to merge all exported vCard files into one
       Shell "cmd.exe /K" & strLocalDrive & " & CD " & strFolder & " & copy *.vcf MergedContact.vcf"
    End If
End Sub

之後，將此宏添加到快速訪問工具欄，參考“如何在Outlook中運行VBA代碼“。
最終，您可以立即嘗試使用此宏。

首先，選擇要匯出的聯絡人。
然後，單擊快速訪問工具欄中的宏按鈕。
稍後您將看到一個命令提示符窗口，這表明所有聯繫人已合併為一個。
現在，您可以轉到 Windows 資源管理器中的“E:\Temp Contacts”文件夾。
在此本地文件夾中，您將找到一個名為“MergedContact”的 vCard 文件，該文件包含所有選定的聯繫人。

崩潰後修復 Outlook 數據

由於 Outlook 很容易損壞，因此您需要妥善保管您的 PST 文件。例如，您需要繼續以正確的方式關閉 Outlook。此外，建議不要點擊未知鏈接或下載電子郵件中嵌入的附件。另外，你最好掌握一個強大的 PST維修實用程序，例如 DataNumen Outlook Repair。有了它，即使您的 Outlook 文件損壞，您仍然可以輕鬆修復它。

作者簡介：

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