Kako brzo izvesti više kontakata u jednu VCard datoteku s programom Outlook VBA

Ako imate više kontakata u Outlooku i želite ih izvesti u jednu vCard datoteku, umjesto u zasebne datoteke, možete koristiti pametnu metodu predstavljenu u ovom članku.

Na primjer, trebate poslati stotine kontakata nekom drugom. Umjesto da ih šaljete kao zasebne vCard datoteke, možda ćete ih željeti kombinirati u jednu vCard datoteku i zatim je poslati. Zapravo, moj prethodni članak – “Kako izvesti više Outlook kontakata kao jednu VCard datoteku” je uveo metodu. Međutim, taj pristup zahtijeva da imate Gmail račun i koristite značajku "Uvoz i izvoz" Gmaila. Ukratko, to je prilično glomazno. Stoga ćemo vam ovdje predstaviti zgodniju metodu.

Brzo izvezite više kontakata u jednu vCard datoteku

1. Najprije pokrenite Outlook aplikaciju.
2. Zatim dodirnite tipke "Alt + F11" za pristup VBA uređivaču.
3. Zatim u novom prozoru stavite VBA kod u 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. Nakon toga dodajte ovu makronaredbu na alatnu traku za brzi pristup s referencom na "Kako pokrenuti VBA kod u vašem Outlooku".
5. Na kraju, možete isprobati ovu makronaredbu upravo sada.

• Za početak odaberite kontakte koje želite izvesti.
• Zatim kliknite gumb makronaredbe na alatnoj traci za brzi pristup.
• Kasnije ćete vidjeti prozor naredbenog retka, koji označava da su svi kontakti spojeni u jedan.
• Sada možete otići u mapu “E:\Temp Contacts” u vašem Windows Exploreru.
• U ovoj lokalnoj mapi pronaći ćete vCard datoteku pod nazivom "MergedContact", što je datoteka koja sadrži sve odabrane kontakte.

Popravite svoje Outlook podatke nakon padova

Budući da je Outlook osjetljiv na oštećenje, morate dobro paziti na svoju PST datoteku. Na primjer, morate nastaviti zatvarati svoj Outlook na pravilan način. Također, predlaže se da nikada ne klikate na nepoznate veze ili preuzimate privitke ugrađene u e-poštu. Štoviše, bolje da se dočepate moćnog PST popravak korisnost, kao što je DataNumen Outlook Repair. S njim, čak i ako se vaša Outlook datoteka ošteti, i dalje je možete popraviti bez napora.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući pokvariti SQL Server i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com