Hur man snabbt exporterar flera kontakter till en VCard-fil med Outlook VBA

Om du har flera kontakter i din Outlook och vill exportera dem till en enda vCard-fil, istället för separata filer, kan du använda den smarta metoden som introduceras i den här artikeln.

Du måste till exempel skicka hundratals kontakter till någon annan. Istället för att skicka dem som separata vCard-filer kan du vara angelägen om att kombinera dem i en enda vCard-fil och sedan skicka den. Egentligen min tidigare artikel - “Hur man exporterar flera Outlook-kontakter som en enda VCard-fil”Har infört en metod. Men det tillvägagångssättet kräver att du har ett Gmail-konto och använder funktionen "Importera och exportera" i Gmail. I ett nötskal är det ganska besvärligt. Därför kommer vi här att introducera en smidigare metod för dig.

Exportera snabbt flera kontakter till en vCard-fil

1. Först och främst, starta din Outlook-applikation.
2. Tryck sedan på “Alt + F11” -tangenterna för att komma åt VBA-redigeraren.
3. Lägg sedan VBA-koden i en modul i det nya fönstret.

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. Lägg sedan till detta makro i snabbåtkomstverktygsfältet med hänvisning till “Hur du kör VBA-kod i din Outlook".
5. Så småningom kan du prova detta makro just nu.

• Till att börja med, välj de kontakter som du vill exportera.
• Klicka sedan på makroknappen i verktygsfältet Snabbåtkomst.
• Senare ser du ett kommandotolkfönster som indikerar att alla kontakter slås samman till en.
• Nu kan du gå till mappen "E: \ Temp Kontakter" i din Windows Explorer.
• I den här lokala mappen hittar du en vCard-fil med namnet “MergedContact”, vilket är filen som innehåller alla valda kontakter.

Reparera dina Outlook-data efter kraschar

Eftersom Outlook är mottagligt för korruption måste du ta hand om din PST-fil. Till exempel måste du fortsätta stänga din Outlook på rätt sätt. Det föreslås också att du aldrig klickar på okända länkar eller laddar ner bilagor inbäddade i e-postmeddelanden. Dessutom skulle du bättre få tag i en kraftfull PST-reparation verktyg, såsom DataNumen Outlook Repair. Med den, även om din Outlook-fil blir skadad, kan du fortfarande reparera den utan problem.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive korrupta SQL Server och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com