Slik eksporterer du raskt flere kontakter til én VCard-fil med Outlook VBA

Hvis du har flere kontakter i Outlook og ønsker å eksportere dem til en enkelt vCard-fil, i stedet for separate filer, kan du bruke den smarte metoden introdusert i denne artikkelen.

Du må for eksempel sende hundrevis av kontakter til noen andre. I stedet for å sende dem som separate vCard-filer, kan du være ivrig etter å kombinere dem til en enkelt vCard-fil og deretter sende den. Faktisk, min forrige artikkel - "Hvordan eksportere flere Outlook-kontakter som en enkelt VCard-fil” har introdusert en metode. Den tilnærmingen krever imidlertid at du har en Gmail-konto og bruker "Importer og eksporter"-funksjonen i Gmail. I et nøtteskall er det ganske tungvint. Derfor vil vi her introdusere en mer praktisk metode for deg.

Eksporter flere kontakter raskt til én vCard-fil

1. Start først Outlook-applikasjonen.
2. Trykk deretter på "Alt + F11" -tastene for å få tilgang til VBA-redigering.
3. Deretter legger du VBA-koden inn i en modul i det nye vinduet.

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. Etter det, legg til denne makroen til Quick Access Toolbar med referanse til "Hvordan kjøre VBA-kode i Outlook".
5. Til slutt kan du prøve denne makroen akkurat nå.

• For å begynne, velg kontaktene du vil eksportere.
• Klikk deretter på makroknappen i verktøylinjen for hurtigtilgang.
• Senere vil du se et ledetekstvindu, som indikerer at alle kontaktene er slått sammen til en.
• Nå kan du gå til mappen "E:\Temp Contacts" i Windows Utforsker.
• I denne lokale mappen finner du en vCard-fil som heter "MergedContact", som er filen som inneholder alle de valgte kontaktene.

Reparer Outlook-dataene dine etter krasj

Siden Outlook er utsatt for korrupsjon, må du ta godt vare på PST-filen din. For eksempel må du fortsette å lukke Outlook på riktig måte. Det anbefales også å aldri klikke på ukjente lenker eller laste ned vedlegg innebygd i e-poster. Dessuten bør du få tak i en kraftig PST reparasjon nytte, som f.eks DataNumen Outlook Repair. Med den, selv om Outlook-filen din blir korrupt, kan du fortsatt reparere den uten problemer.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert korrupt SQL Server og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med