3 Methods to Quickly Add vCard Attachments to Your Contacts Folder in Outlook

When you receive an email which is attached with several vCard files, if you want to quickly save them as new contacts to your default Contacts folder, you can use the 3 methods introduced in this article.

Sometimes, you may receive an email which contains many vCard attachments. In general, you will surely tend to add them as new contacts to your Contacts folder. You can add them one by one. However, it will be much better and more efficient if you can save them in bulk. In the followings, we will introduce 3 ways to you.

3 Methods to Quickly Add vCard Attachments to Your Contacts Folder in Outlook

Method 1: Open Each vCard to Save One by One

  1. To start with, open this email or simply preview it in reading pane.
  2. Then double click on one vCard file to open it.
  3. Next the vCard will display in a new window.
  4. Now you can see “Save & Close” button in the “Home” ribbon. Click on it.Open Each vCard to Save One by One
  5. At once, this vCard file will be saved to your default Contacts folder.
  6. Subsequently, you can repeat the above steps to save all attached vCard files to your Contacts folder one by one.

Method 2: Batch Drag & Drop to Contacts Pane Icon

  1. For a start, select an attached vCard file.
  2. Then press “Ctrl + A” to select all of the vCard files.
  3. Next you should drag and drop the selected vCard files to the Contacts pane icon in the lower-left corner of Outlook window.Batch Drag & Drop to Contacts Pane Icon
  4. After that, all the vCard files will be opened.
  5. Lastly, you can click “Save & Close” button in each opened Contact window to save them one by one.

Method 3: Add via Outlook VBA

  1. In the first place, press “Alt + F11” key buttons in the main Outlook window.
  2. Then in the following “Microsoft Visual Basic for Applications” window, open an empty module or straightly insert a new module.
  3. Subsequently, copy and paste the VBA code below to this module.
Sub ExtractSaveAttachedVCardstoContactsFolder()
    Dim objMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim strTempFolderPath, strFilePath As String
    Dim objFolder As Object
    Dim objFile As Object
    Dim objVCard As Object
    Dim strVCard As String
    Dim objInspectors As Outlook.Inspectors
    Dim objWsShell As Object
 
    Set objMail = Outlook.Application.ActiveExplorer.Selection.Item(1)
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolderPath = objFileSystem.GetSpecialFolder(2).Path & "\TEMP " & Format(Now, "YYYY-MM-DD hh-mm-ss")
    MkDir (strTempFolderPath)
 
    For Each objAttachment In objMail.Attachments
        If Right(LCase(objAttachment.FileName), 3) = "vcf" Then
           'Save the vCard files to a temp folder
           strFilePath = strTempFolderPath & "\" & objAttachment.FileName
           objAttachment.SaveAsFile (strFilePath)
        End If
    Next

    Set objFolder = objFileSystem.GetFolder(strTempFolderPath)
 
    For Each objFile In objFolder.Files
        Set objVCard = objFile
        'Get the full path to the vCard file
        strVCard = objVCard.Path
 
        Set objInspectors = Outlook.Application.Inspectors
 
        If objInspectors.Count = 0 Then
           Set objWsShell = CreateObject("WScript.Shell")
 
           'Open the vCard file
           objWsShell.Run (Chr(34) & strVCard & Chr(34))
 
           Do Until objInspectors.Count = 1
              DoEvents
           Loop
 
           'Save & close the vCard to Outlook
           objInspectors.Item(1).CurrentItem.Save
           objInspectors.Item(1).Close olDiscard

       End If
    Next
 
    'Delete the temp folder
    objFileSystem.DeleteFolder (strTempFolderPath)
    MsgBox "Save Successfully!", vbInformation + vbOKOnly
End Sub

VBA Code - Add vCard Attachments to Your Contacts Folder

  1. After that, you can add the new macro to Quick Access Toolbar.
  2. Finally, you can have a try:
  • Firstly, select an email.
  • Then press the new macro button in the Quick Access Toolbar.
  • Next, the macro will start. When it completes, you will receive a message.Save Successfully
  • Lastly, you can go to your default Contacts folder, in which the vCard files have been saved.vCards turn into Contacts

Dispose Frequent Outlook Errors

No application is flawless. The same holds true for Outlook application. In other words, various issues can occur to your Outlook program now and then. Thus, so as to secure your PST data, you have to make sufficient precautions. For instance, it is prudent to prepare a preeminent PST recovery tool, like DataNumen Outlook Repair. It is good at fixing Outlook errors and recovering Outlook data.

Author Introduction:

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

Comments are closed.