how to add multiple vcard files to outlook

First of All,
Creat a folder with name of  "VCARD". in C:\

And move your vcard file to it.


Now open microsoft outlook & choose contact tab,

& press Alt+F11 to open vbaproject script editor 

Now  

go to menu Tool => preference and mark sign on  ' Microsoft scripting runtime '  and also mark on  ' Windows script host object model ' and press ok.

Now insert => model

copy the following code and past in project...

Sub OpenSaveVCard() Dim objWSHShell As IWshRuntimeLibrary.IWshShell Dim objOL As Outlook.Application Dim colInsp As Outlook.Inspectors Dim strVCName As String Dim fso As Scripting.FileSystemObject Dim fsDir As Scripting.Folder Dim fsFile As Scripting.File Dim vCounter As Integer Set fso = New Scripting.FileSystemObject Set fsDir = fso.GetFolder("C:\VCARDS") For Each fsFile In fsDir.Files strVCName = "C:\VCARDS\" & fsFile.Name Set objOL = CreateObject("Outlook.Application") Set colInsp = objOL.Inspectors If colInsp.Count = 0 Then Set objWSHShell = CreateObject("WScript.Shell") objWSHShell.Run Chr(34) & strVCName & Chr(34) Set colInsp = objOL.Inspectors If Err = 0 Then Do Until colInsp.Count = 1 DoEvents Loop colInsp.Item(1).CurrentItem.Save colInsp.Item(1).Close olDiscard Set colInsp = Nothing Set objOL = Nothing Set objWSHShell = Nothing End If End If Next End Sub

Now Run macro.