Как быстро экспортировать несколько контактов в один файл VCard с помощью Outlook VBA

Перспективные решения 29 сентября, 2025

Если у вас есть несколько контактов в 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

После этого добавьте этот макрос на панель быстрого доступа со ссылкой на «Как запустить код VBA в Outlook».
В конце концов, вы можете попробовать этот макрос прямо сейчас.

Для насtart, выберите контакты, которые вы хотите экспортировать.
Затем нажмите кнопку макроса на панели быстрого доступа.
Позже вы увидите окно командной строки, в котором указано, что все контакты объединены в один.
Теперь вы можете перейти в папку «E:\Temp Contacts» в проводнике Windows.
В этой локальной папке вы найдете файл vCard с именем «MergedContact», который представляет собой файл, содержащий все выбранные контакты.

Восстановление данных Outlook после сбоев

Поскольку Outlook подвержен повреждению, вам нужно хорошо заботиться о своем файле PST. Например, вам нужно правильно закрывать Outlook. Кроме того, рекомендуется никогда не переходить по неизвестным ссылкам и не загружать вложения, встроенные в электронные письма. Кроме того, вам лучше обзавестись мощным ремонт PST утилита, например DataNumen Outlook Repair. С его помощью, даже если ваш файл Outlook будет поврежден, вы все равно сможете легко восстановить его.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая и коррумпированных лиц SQL Server и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com