• Hi there and welcome to PC Help Forum (PCHF), a more effective way to get the Tech Support you need!
    We have Experts in all areas of Tech, including Malware Removal, Crash Fixing and BSOD's , Microsoft Windows, Computer DIY and PC Hardware, Networking, Gaming, Tablets and iPads, General and Specific Software Support and so much more.

    Why not Click Here To Sign Up and start enjoying great FREE Tech Support.

    This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

save multiple Outlook contacts as vCard files at once

Status
Not open for further replies.
Hi,

I want to back up some Outlook contacts to my local drive. I can use "Save As" to save a contact as a vCard file to my E drive. But if I select a few contacts in outlook then click "Save As ", it will save them all in a text file , not several vCard files. So I have to save them one by one.

As I have quite a few contacts, I hope there would be a way to batch save those contacts as vCard files. It will save much time for me. Any ideas? By the way, it's outlook2010.
 
hey,

You can forward contacts as business card as Rustys said above. And you can also use VBA to do that. Here is a article which is just about that, You can see if it helps you

https://www.datanumen.com/blogs/2-methods-batch-export-multiple-outlook-contacts-vcard-files/

And I also attch the macro codes here in case that the link may be invalid in the future.

Code:
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
 
Status
Not open for further replies.