Kaip greitai eksportuoti kelis kontaktus į vieną VCard failą naudojant Outlook VBA

Jei „Outlook“ turite kelis kontaktus ir norite eksportuoti juos į vieną „vCard“ failą, o ne į atskirus failus, galite naudoti šiame straipsnyje pristatytą išmanųjį metodą.

Pavyzdžiui, jums reikia išsiųsti šimtus kontaktų kam nors kitam. Užuot siuntę juos kaip atskirus „vCard“ failus, galbūt norėsite juos sujungti į vieną „vCard“ failą ir tada jį išsiųsti. Tiesą sakant, mano ankstesnis straipsnis – „Kaip eksportuoti kelis Outlook kontaktus kaip vieną VCard failą“ pristatė metodą. Tačiau šis metodas reikalauja, kad turėtumėte „Gmail“ paskyrą ir naudotumėte „Gmail“ funkciją „Importuoti ir eksportuoti“. Trumpai tariant, tai gana sudėtinga. Todėl čia mes jums pristatysime patogesnį metodą.

Greitai eksportuokite kelis kontaktus į vieną vCard failą

1. Pirmiausia paleiskite „Outlook“ programą.
2. Tada bakstelėkite „Alt + F11“ klavišus, kad pasiektumėte VBA redaktorių.
3. Tada naujame lange įdėkite VBA kodą į modulį.

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. Po to pridėkite šią makrokomandą prie greitosios prieigos įrankių juostos su nuoroda „Kaip paleisti VBA kodą „Outlook“.".
5. Galų gale galite išbandyti šią makrokomandą dabar.

• Pirmiausia pasirinkite kontaktus, kuriuos norite eksportuoti.
• Tada greitosios prieigos įrankių juostoje spustelėkite makrokomandos mygtuką.
• Vėliau pamatysite komandų eilutės langą, nurodantį, kad visi kontaktai yra sujungti į vieną.
• Dabar „Windows Explorer“ galite pereiti į aplanką „E:\Temp Contacts“.
• Šiame vietiniame aplanke rasite „vCard“ failą, pavadintą „MergedContact“, kuris yra failas, kuriame yra visi pasirinkti kontaktai.

Pataisykite „Outlook“ duomenis po gedimų

Kadangi „Outlook“ yra jautri korupcijai, turite tinkamai pasirūpinti savo PST failu. Pavyzdžiui, turite tinkamai uždaryti „Outlook“. Taip pat siūloma niekada nespausti nežinomų nuorodų ar atsisiųsti į el. laiškus įterptų priedų. Be to, geriau paimkite galingą PST remontas naudingumas, pvz DataNumen Outlook Repair. Net jei jūsų „Outlook“ failas sugadinamas, vis tiek galite lengvai jį pataisyti.

Autoriaus įvadas:

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