2 Methods to Batch Export Multiple Outlook Contacts as vCard Files

If you want to export multiple Outlook contacts as vCard files in bulk, you can utilize the two means introduced in this article.

There is no doubt that it is very easy to export an Outlook contact as vCard file. You can simply select a contact and then turn to “File” menu and hit “Save As”. In the popup “Save As” dialog box, “vCard File” type option is available by default. But, if you select multiple contacts and use “Save As”, there is only “Text File” option. So, provided that you would like to bulk export many contacts as separate vCard files, you have to seek other means. Here we will introduce you two ways.

Method 1: Forward Contacts as Business Card

1. To start with, launch your Outlook application.
2. Then switch to “Contacts” pane and open the correct Contacts folder.
3. Next select the contacts which you want to export as vCard files.
4. Subsequently, select “Forward Contact” > “As a Business Card”.
5. After that, a new message will show up, in which all the selected contacts are being attached.
6. Now you should select all the attached business cards in “Attach” line.
7. Later you can drag and drop them to the local drive, like the image below:
8. At once, you will get the separate vCard files in the local drive.

Method 2: Batch Export as vCards with Outlook VBA

1. In the first place, press “Alt + F11” key buttons in main Outlook window.
2. Then you will get access to Outlook VBA editor.
3. Next you need to copy the following VBA codes into a not-in-use module.

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. Subsequently, for convenience, you can add the new VBA project to the Quick Access Toolbar.
5. Plus, you should ensure that Outlook permits macros.
6. Finally, you can have a try.

• Firstly, select the source contacts.
• Then click the macro button in Quick Access Toolbar.
• After the macro finishes running, you will be able to find the according vCard files in the predefined local folder.

Dispose Vexing PST Problems

If you have utilized Outlook for decades, you must have encountered a variety of PST issues, such as inaccessible PST troubles. In this case, as usual, you can firstly recur to the inbox repair tool. If it fails, you can resort to a more experienced tool, such as DataNumen Outlook Repair.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including fix mdf and outlook repair software products. For more information visit www.datanumen.com