Як швидко експортувати кілька контактів до одного файлу VCard за допомогою Outlook VBA

Рішення для Outlook Вересень 29, 2025
Поділитися зараз:

Якщо у вас кілька контактів у програмі Outlook і ви хочете експортувати їх до одного файлу vCard, замість окремих файлів, ви можете скористатися інтелектуальним методом, представленим у цій статті.

Наприклад, вам потрібно надіслати сотні контактів комусь іншому. Замість того, щоб надсилати їх як окремі файли vCard, можливо, ви захочете об’єднати їх в один файл vCard, а потім відправити. Власне, моя попередня стаття - “Як експортувати кілька контактів Outlook як один файл VCard”Представив метод. Однак такий підхід вимагає наявності облікового запису Gmail та використання функції «Імпорт та експорт» Gmail. У двох словах, це досить громіздко. Тому тут ми представимо вам зручніший метод.Швидко експортуйте кілька контактів до одного файлу VCard за допомогою програми Outlook VBA

Швидко експортуйте кілька контактів до одного файлу vCard

  1. По-перше, запустіть програму Outlook.
  2. Потім натисніть клавіші “Alt + F11”, щоб отримати доступ до редактора VBA.
  3. Далі, у новому вікні, помістіть код 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 - Швидко експортуйте кілька контактів в один файл VCard

  1. Після цього додайте цей макрос на панель швидкого доступу із посиланням на “Як запустити код VBA у своєму Outlook».
  2. Зрештою, ви можете спробувати цей макрос прямо зараз.
  • Для початку виберіть контакти, які ви хочете експортувати.
  • Потім натисніть кнопку макросу на панелі швидкого доступу.Запустіть макрос на вибраних контактах
  • Пізніше ви побачите вікно командного рядка, яке вказує на те, що всі контакти об'єднані в один.Командний рядок
  • Тепер ви можете перейти до папки “E: \ Temp Contacts” у своєму Провіднику Windows.
  • У цій локальній папці ви знайдете файл vCard із назвою “MergedContact”, який містить усі вибрані контакти.Об’єднаний файл vCard

Відновіть дані Outlook після аварій

Оскільки Outlook сприйнятливий до корупції, вам слід ретельно подбати про свій файл PST. Наприклад, вам потрібно продовжувати закривати Outlook належним чином. Також рекомендується ніколи не натискати невідомі посилання або завантажувати вкладення, вбудовані в електронні листи. Більше того, вам краще заволодіти могутнім Ремонт PST утиліта, наприклад DataNumen Outlook Repair. За допомогою нього, навіть якщо файл Outlook пошкоджений, ви все одно можете відновити його з легкістю.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі корумпований SQL Server та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com

Поділитися зараз:

Коментарі закриті.