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.
Method 1: Open Each vCard to Save One by One
- To start with, open this email or simply preview it in reading pane.
- Then double click on one vCard file to open it.
- Next the vCard will display in a new window.
- Now you can see “Save & Close” button in the “Home” ribbon. Click on it.
- At once, this vCard file will be saved to your default Contacts folder.
- 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
- For a start, select an attached vCard file.
- Then press “Ctrl + A” to select all of the vCard files.
- Next you should drag and drop the selected vCard files to the Contacts pane icon in the lower-left corner of Outlook window.
- After that, all the vCard files will be opened.
- Lastly, you can click “Save & Close” button in each opened Contact window to save them one by one.
Method 3: Add via Outlook VBA
- In the first place, press “Alt + F11” key buttons in the main Outlook window.
- Then in the following “Microsoft Visual Basic for Applications” window, open an empty module or straightly insert a new module.
- 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
- After that, you can add the new macro to Quick Access Toolbar.
- 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.
- Lastly, you can go to your default Contacts folder, in which the vCard files have been saved.
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.
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