2 metoder för att batchexportera flera Outlook-kontakter som vCard-filer

Om du vill exportera flera Outlook-kontakter som vCard-filer i bulk kan du använda de två sätten som presenteras i den här artikeln.

Det råder ingen tvekan om att det är mycket enkelt att exportera en Outlook-kontakt som vCard-fil. Du kan helt enkelt välja en kontakt och sedan vända dig till "Arkiv" -menyn och trycka på "Spara som". I popup-dialogrutan "Spara som" är alternativet "vCard-fil" som standard tillgängligt. Men om du väljer flera kontakter och använder "Spara som" finns det bara "Textfil". Så förutsatt att du vill exportera många kontakter som separata vCard-filer, måste du söka andra sätt. Här presenterar vi dig på två sätt.

Metod 1: Vidarebefordra kontakter som visitkort

1. Till att börja med, starta ditt Outlook-program.
2. Byt sedan till "Kontakter" -rutan och öppna rätt Kontakter-mapp.
3. Välj sedan de kontakter som du vill exportera som vCard-filer.
4. Välj sedan "Vidarebefordra kontakt"> "Som visitkort".
5. Därefter visas ett nytt meddelande där alla valda kontakter bifogas.
6. Nu ska du välja alla bifogade visitkort i raden "Bifoga".
7. Senare kan du dra och släppa dem till den lokala enheten, som bilden nedan:
8. Omedelbart får du de separata vCard-filerna på den lokala enheten.

Metod 2: Batchexport som vCards med Outlook VBA

1. För det första trycker du på “Alt + F11” -tangenterna i huvudfönstret i Outlook.
2. Då får du tillgång till Outlook VBA-redigeraren.
3. Därefter måste du kopiera följande VBA-koder till en modul som inte används.

Sub ExportMultipleContactsAsVCards()
    Dim objSelection As Outlook.Selection
    Dim objContact As Outlook.ContactItem
    Dim objItem As Object
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
   
    'If want to export all contacts, use the following lines instead
    'Dim olContacts as Outlook.Items
    'Set olContacts = Outlook.Application.Session.GetDefaultFolder(olFolderContacts).Items
    'For Each objItem In olContacts
    For Each objItem In objSelection
        If TypeOf objItem Is ContactItem Then
           Set objContact = objItem
           'Change the predefined local folder for saving the vCards
           objContact.SaveAs "E:\" & objContact.FullName & ".vcf", olVCard
        End If
    Next
End Sub

4. Därefter kan du för enkelhets skull lägga till det nya VBA-projektet i snabbåtkomstverktygsfältet.
5. Dessutom bör du se till att Outlook tillåter makron.
6. Slutligen kan du prova.

• Välj först källkontakterna.
• Klicka sedan på makroknappen i snabbåtkomstverktygsfältet.
• När makrot har slutförts kommer du att kunna hitta vCard-filerna i den fördefinierade lokala mappen.

Kassera Vexing PST-problem

Om du har använt Outlook i årtionden måste du ha stött på en mängd olika PST-problem, till exempel otillgängliga PST-problem. I det här fallet kan du som vanligt först återgå till verktyg för reparation av inkorgen. Om det misslyckas kan du använda ett mer erfaret verktyg, till exempel DataNumen Outlook Repair.

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 fixa mdf och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com