2 metodes, kā eksportēt vairākus Outlook kontaktpersonas kā vCard failus

Ja vēlaties eksportēt vairākus Outlook kontaktpersonas kā vCard failus lielapjomā, varat izmantot divus šajā rakstā ieviestos līdzekļus.

Nav šaubu, ka ir ļoti viegli eksportēt Outlook kontaktpersonu kā vCard failu. Jūs varat vienkārši atlasīt kontaktu un pēc tam pāriet uz izvēlni Fails un nospiediet “Saglabāt kā”. Uznirstošajā dialoglodziņā Saglabāt kā pēc noklusējuma ir pieejama veida opcija “vCard File”. Bet, ja atlasāt vairākus kontaktus un izmantojat “Saglabāt kā”, ir pieejama tikai opcija “Teksta fails”. Tātad, ja vēlaties daudzus kontaktus eksportēt kā atsevišķus vCard failus, jums jāmeklē citi līdzekļi. Šeit mēs iepazīstināsim jūs ar diviem veidiem.

1. metode: Pārsūtīt kontaktpersonas kā vizītkarti

1. Lai sāktu, palaidiet savu Outlook lietojumprogrammu.
2. Pēc tam pārslēdzieties uz rūti “Kontakti” un atveriet pareizo mapi Kontaktpersonas.
3. Pēc tam atlasiet kontaktpersonas, kuras vēlaties eksportēt kā vCard failus.
4. Pēc tam atlasiet “Pārsūtīt kontaktu”> “Kā vizītkarte”.
5. Pēc tam parādīsies jauns ziņojums, kurā tiek pievienoti visi atlasītie kontakti.
6. Tagad rindā “Pievienot” jums jāizvēlas visas pievienotās vizītkartes.
7. Vēlāk jūs varat tos vilkt un nomest uz vietējo disku, piemēram, zemāk redzamo attēlu:
8. Uzreiz jūs saņemsiet atsevišķus vCard failus vietējā diskā.

2. metode: pakešu eksportēšana kā vCards ar Outlook VBA

1. Pirmkārt, galvenajā Outlook logā nospiediet taustiņu pogas “Alt + F11”.
2. Tad jūs saņemsiet piekļuvi Outlook VBA redaktoram.
3. Tālāk jums jānokopē šie VBA kodi neizmantojamā modulī.

Sub ExportMultipleContactsAsVCards()
    Dim objSelection As Outlook.Selection
    Dim objContact As Outlook.ContactItem
    Dim objItem As Object
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
   
    'If want to export all contacts, use the following lines instead
    'Dim olContacts as Outlook.Items
    'Set olContacts = Outlook.Application.Session.GetDefaultFolder(olFolderContacts).Items
    'For Each objItem In olContacts
    For Each objItem In objSelection
        If TypeOf objItem Is ContactItem Then
           Set objContact = objItem
           'Change the predefined local folder for saving the vCards
           objContact.SaveAs "E:\" & objContact.FullName & ".vcf", olVCard
        End If
    Next
End Sub

4. Pēc tam ērtības labad jauno VBA projektu varat pievienot ātrās piekļuves rīkjoslai.
5. Turklāt jums jāpārliecinās, vai programma Outlook atļauj makro.
6. Visbeidzot, jūs varat izmēģināt.

• Pirmkārt, atlasiet avota kontaktpersonas.
• Pēc tam ātrās piekļuves rīkjoslā noklikšķiniet uz makro pogas.
• Pēc tam, kad makro būs pabeigta, jūs varēsit atrast atbilstošos vCard failus iepriekš definētajā vietējā mapē.

Atbrīvojieties no Vexing PST problēmām

Ja gadu desmitus esat izmantojis programmu Outlook, jums noteikti ir radušās dažādas PST problēmas, piemēram, nepieejamas PST problēmas. Šajā gadījumā, kā parasti, vispirms varat atkārtoties iesūtnes labošanas rīks. Ja tas neizdodas, varat izmantot vairāk pieredzējušu rīku, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp labot mdf un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar