Sådan eksporterer du hurtigt flere kontakter til en VCard-fil med Outlook VBA

Hvis du har flere kontakter i din Outlook og ønsker at eksportere dem til en enkelt vCard-fil, i stedet for separate filer, kan du bruge den smarte metode introduceret i denne artikel.

For eksempel skal du sende hundredvis af kontakter til nogle andre. I stedet for at sende dem som separate vCard-filer, kan du være ivrig efter at kombinere dem til en enkelt vCard-fil og derefter sende den. Faktisk, min tidligere artikel - "Sådan eksporteres flere Outlook-kontakter som en enkelt VCard-fil” har indført en metode. Den tilgang kræver dog, at du har en Gmail-konto og bruger "Importer og eksporter"-funktionen i Gmail. I en nøddeskal er det ret besværligt. Derfor vil vi her introducere en mere handy metode for dig.

Eksportér hurtigt flere kontakter til én vCard-fil

1. Start først din Outlook-applikation.
2. Tryk derefter på "Alt + F11"-tasterne for at få adgang til VBA-editor.
3. Indsæt derefter VBA-koden i et modul i det nye vindue.

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. Tilføj derefter denne makro til værktøjslinjen Hurtig adgang med henvisning til "Sådan køres VBA-kode i din Outlook".
5. Til sidst kan du prøve denne makro lige nu.

• Til at starte med skal du vælge de kontakter, du vil eksportere.
• Klik derefter på makroknappen i værktøjslinjen Hurtig adgang.
• Senere vil du se et kommandopromptvindue, som angiver, at alle kontakter er slået sammen til en.
• Nu kan du gå til mappen "E:\Temp Contacts" i din Windows Stifinder.
• I denne lokale mappe finder du en vCard-fil med navnet "MergedContact", som er filen, der indeholder alle de valgte kontakter.

Reparer dine Outlook-data efter nedbrud

Da Outlook er modtagelig for korruption, skal du passe godt på din PST-fil. For eksempel skal du blive ved med at lukke din Outlook på den rigtige måde. Det foreslås også, at du aldrig klikker på ukendte links eller downloader vedhæftede filer, der er indlejret i e-mails. Desuden må du hellere få fat i en kraftfuld PST-reparation hjælpeprogram, såsom DataNumen Outlook Repair. Med det, selvom din Outlook-fil bliver korrupt, kan du stadig reparere den med ubesværet lethed.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder korrupt SQL Server og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com