Per un importazione multipla dei contatti in formato vcf su outlook bisogna:

• Apriamo Outlook e selezioniamo File,Opzioni , Centro Protezione ,Impostazioni Centro Protezione , Impostazioni Macro e impostiamo l’opzione attiva tutte le macro
• Chiudiamo Outlook
  Creiamo una cartella su C: chiamata vcards e inseriamo all’interno tutti i nostri contatti da importare.
• Riapriamo Outlook e premiamo ALT+F11 per aprire un nuovo progetto VBA.
  Aggiungiamo due riferimenti facendo clic su strumenti e riferimenti.
  -Microsoft Scripting Runtime
  -Windows Script Host Object Model
• Creiamo un nuovo modulo facendo tasto dx su progetto1 –> inserisci e inseriamo la seguente procedura facendo doppio clik su modulo1, dentro all’editor inserire questo codice.

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

• infine selezionare il modulo1 e schiacciare sul tasto play in verde sulla barra degli strumenti.

Fonte : collegamento