Kako brzo izvesti više kontakata u jednu VCard datoteku pomoću 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 biti željni da ih spojite u jednu vCard datoteku i zatim je pošaljete. Zapravo, moj prethodni članak – “Kako izvesti više Outlook kontakata kao jednu datoteku VCard” je uveo metodu. Međutim, taj pristup zahtijeva da imate Gmail nalog i da koristite funkciju „Uvoz i izvoz“ Gmaila. Ukratko, to je prilično glomazno. Stoga ćemo vam ovdje predstaviti lakšu metodu.

Brzo izvezite više kontakata u jednu vCard datoteku

1. Prvo pokrenite svoju Outlook aplikaciju.
2. Zatim dodirnite tipke “Alt + F11” za pristup VBA editoru.
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 ovaj makro na alatnu traku za brzi pristup s referencom na “Kako pokrenuti VBA kod u vašem Outlooku".
5. Na kraju, možete isprobati ovaj makro upravo sada.

• Za početak, odaberite kontakte koje želite eksportovati.
• Zatim kliknite na dugme makro na traci sa alatkama za brzi pristup.
• Kasnije ćete vidjeti prozor komandne linije, koji pokazuje da su svi kontakti spojeni u jedan.
• Sada možete otići u folder “E:\Temp Contacts” u vašem Windows Exploreru.
• U ovoj lokalnoj fascikli naći ćete vCard datoteku pod nazivom “MergedContact”, a to je datoteka koja sadrži sve odabrane kontakte.

Popravite svoje Outlook podatke nakon pada

Budući da je Outlook podložan korupciji, morate dobro voditi računa o svojoj PST datoteci. Na primjer, morate nastaviti zatvarati Outlook na pravilan način. Također, preporučuje se da nikada ne klikate na nepoznate veze ili preuzimate priloge ugrađene u e-poštu. Štaviše, bolje je da se dočepate moćnog PST repair korisnost, kao npr DataNumen Outlook Repair. Uz to, čak i ako se vaša Outlook datoteka ošteti, i dalje je možete popraviti s lakoćom.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući korumpiran SQL Server i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com