Kuidas Outlook VBA abil kiiresti eksportida mitu kontakti ühte VCardi faili

Outlooki lahendused September 29, 2025

Kui teil on Outlookis mitu kontakti ja soovite need eksportida ühte vCardi faili, mitte eraldi faile, saate kasutada selles artiklis tutvustatud nutikat meetodit.

Näiteks peate kellelegi teisele saatma sadu kontakte. Selle asemel, et saata need eraldi vCard-failidena, võite soovida need ühendada üheks vCard-failiks ja seejärel saata. Tegelikult minu eelmine artikkel - "Kuidas eksportida mitut Outlooki kontakti ühe VCard-failina” on kasutusele võtnud meetodi. See lähenemisviis nõuab aga Gmaili konto olemasolu ja Gmaili funktsiooni „Impordi ja ekspordi” kasutamist. Lühidalt öeldes on see üsna tülikas. Seetõttu tutvustame siin teile mugavamat meetodit.Outlook VBA abil saate kiiresti eksportida mitu kontakti ühte VCardi faili

Kiiresti eksportige mitu kontakti ühte vCardi faili

  1. Kõigepealt käivitage oma Outlooki rakendus.
  2. Seejärel puudutage VBA redaktori avamiseks klahve Alt + F11.
  3. Järgmisena pange uues aknas VBA kood moodulisse.
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-kood – eksportige mitu kontakti kiiresti ühte VCardi faili

  1. Pärast seda lisage see makro kiirpääsu tööriistaribale viitega "Kuidas Outlookis VBA-koodi käivitada".
  2. Lõpuks saate seda makrot kohe proovida.
  • Alustuseks valige kontaktid, mida soovite eksportida.
  • Seejärel klõpsake kiirjuurdepääsu tööriistaribal makronuppu.Käivitage valitud kontaktidel makro
  • Hiljem näete käsuviiba akent, mis näitab, et kõik kontaktid on üheks liidetud.Command Prompt
  • Nüüd saate minna oma Windows Exploreris kausta "E:\Temp Contacts".
  • Sellest kohalikust kaustast leiate vCardi faili nimega "MergedContact", mis on fail, mis sisaldab kõiki valitud kontakte.Ühendatud vCard-fail

Parandage oma Outlooki andmed pärast kokkujooksmisi

Kuna Outlook on korruptsioonile vastuvõtlik, peate oma PST-faili eest hästi hoolt kandma. Näiteks peate oma Outlooki korralikult sulgema. Samuti on soovitatav mitte kunagi klõpsata tundmatutel linkidel ega laadida alla e-kirjadesse manustatud manuseid. Pealegi oleks parem hankida võimas PST remont utiliit, näiteks DataNumen Outlook Repair. Isegi kui teie Outlooki fail rikutakse, saate selle hõlpsalt parandada.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas korrumpeerunud SQL Server ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.