如果您的 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