2 būdai, kaip paketiniu būdu eksportuoti kelis Outlook kontaktus kaip vCard failus

Jei norite masiškai eksportuoti kelis „Outlook“ kontaktus kaip „vCard“ failus, galite naudoti dvi šiame straipsnyje pateiktas priemones.

Nėra jokių abejonių, kad labai lengva eksportuoti Outlook kontaktą kaip vCard failą. Galite tiesiog pasirinkti kontaktą, tada pereiti į meniu „Failas“ ir paspausti „Išsaugoti kaip“. Iššokančiajame dialogo lange „Išsaugoti kaip“ pagal numatytuosius nustatymus galima pasirinkti „vCard File“ tipo parinktis. Bet jei pasirenkate kelis kontaktus ir naudojate „Išsaugoti kaip“, yra tik parinktis „Teksto failas“. Taigi, jei norite masiškai eksportuoti daug kontaktų kaip atskirus vCard failus, turite ieškoti kitų priemonių. Čia mes jums pristatysime du būdus.

1 būdas: persiųskite kontaktus kaip vizitinę kortelę

1. Norėdami pradėti, paleiskite „Outlook“ programą.
2. Tada pereikite prie sritį „Kontaktai“ ir atidarykite tinkamą kontaktų aplanką.
3. Tada pasirinkite kontaktus, kuriuos norite eksportuoti kaip vCard failus.
4. Tada pasirinkite „Persiųsti kontaktą“ > „Kaip vizitinę kortelę“.
5. Po to pasirodys naujas pranešimas, kuriame bus pridedami visi pasirinkti kontaktai.
6. Dabar eilutėje „Pridėti“ turėtumėte pasirinkti visas pridėtas vizitines korteles.
7. Vėliau galite nuvilkti juos į vietinį diską, kaip parodyta paveikslėlyje žemiau:
8. Iš karto gausite atskirus „vCard“ failus vietiniame diske.

2 būdas: paketinis eksportavimas kaip vCards su Outlook VBA

1. Visų pirma, pagrindiniame „Outlook“ lange paspauskite klavišus „Alt + F11“.
2. Tada gausite prieigą prie Outlook VBA redaktoriaus.
3. Toliau reikia nukopijuoti šiuos VBA kodus į nenaudojamą 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. Vėliau, kad būtų patogiau, naują VBA projektą galite įtraukti į greitosios prieigos įrankių juostą.
5. Be to, turėtumėte įsitikinti, kad „Outlook“ leidžia makrokomandas.
6. Pagaliau galite pabandyti.

• Pirmiausia pasirinkite šaltinio kontaktus.
• Tada greitosios prieigos įrankių juostoje spustelėkite makrokomandos mygtuką.
• Pasibaigus makrokomandai, galėsite rasti atitinkamus vCard failus iš anksto nustatytame vietiniame aplanke.

Atsikratykite erzinančių PST problemų

Jei „Outlook“ naudojote dešimtmečius, turėjote susidurti su įvairiomis PST problemomis, pvz., nepasiekiamomis PST problemomis. Tokiu atveju, kaip įprasta, pirmiausia galite pasikartoti pašto dėžutės taisymo įrankis. Jei nepavyksta, galite griebtis labiau patyrusio įrankio, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant pataisyti mdf ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com