Как бързо да експортирате няколко контакта в един VCard файл с Outlook VBA

Ако имате няколко контакта във вашия Outlook и искате да ги експортирате в един файл vCard, вместо в отделни файлове, можете да използвате интелигентния метод, представен в тази статия.

Например, трябва да изпратите стотици контакти на някой друг. Вместо да ги изпращате като отделни vCard файлове, може да имате нетърпение да ги комбинирате в един vCard файл и след това да го изпратите. Всъщност предишната ми статия - „Как да експортирате няколко контакта в Outlook като един VCard файл”Въведе метод. Този подход обаче изисква да имате акаунт в Gmail и да използвате функцията „Импортиране и експортиране“ на Gmail. Накратко, това е доста тромаво. Затова тук ще ви представим по -удобен метод.

Бързо експортирайте няколко контакта в един 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

4. След това добавете този макрос към лентата с инструменти за бърз достъп с позоваване на „Как да стартирате VBA код във вашия Outlook".
5. В крайна сметка можете да опитате този макрос точно сега.

• За начало изберете контактите, които искате да експортирате.
• След това щракнете върху бутона за макрос в лентата с инструменти за бърз достъп.
• По -късно ще видите прозорец на командния ред, който показва, че всички контакти са обединени в един.
• Сега можете да отидете в папката „E: \ Temp Contacts“ във вашия Windows Explorer.
• В тази локална папка ще намерите vCard файл, наречен „MergedContact“, който е файлът, съдържащ всички избрани контакти.

Поправете данните си в Outlook след сривове

Тъй като Outlook е податлив на корупция, трябва да се грижите добре за вашия PST файл. Например, трябва да продължите да затваряте Outlook правилно. Също така се препоръчва никога да не щраквате върху неизвестни връзки или да изтегляте прикачени файлове, вградени в имейли. Освен това е по -добре да се сдобиете с мощен PST ремонт полезност, като DataNumen Outlook Repair. С него, дори ако вашият Outlook файл се повреди, все пак можете да го поправите с лекота.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително повредени SQL Server и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com