save multiple Outlook contacts as vCard files at once

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • Taudel
    PCHF Member
    • May 2017
    • 1

    #1

    save multiple Outlook contacts as vCard files at once

    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.
  • veeg
    PCHF Director
    • Jul 2016
    • 8982

    #2
    Hello

    Hopefully some of our members will chime in soon.

    @phillpower2 @gus

    Comment

    • Rustys
      PCHF Member
      • Jul 2016
      • 7862

      #3
      Outlook doesn’t have an export option to directly export all your contacts as vCard files or a single multi-contact vCard file.

      Here is a link to a site that has a way that I tried and works.

      Export multiple Contacts as vCards

      Comment

      • system
        PCHF Owner
        • Jan 2015
        • 7634

        #4
        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

        2 Methods to Batch Export Multiple Outlook Contacts as 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
        [CODE]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[/CODE]

        Comment

        • veeg
          PCHF Director
          • Jul 2016
          • 8982

          #5
          Any updates for us?

          Comment

          • veeg
            PCHF Director
            • Jul 2016
            • 8982

            #6
            Any updates for us? After 48 hrs this thread will be closed.

            Comment

            Working...