SimoZ WeB: Importare Contatti vCard(.vcf) in Outlook

Purtroppo Outlook permette di importare solamente un contatto vCard per volta,o meglio trascinando tutti i contatti nella rubrica ,si apriranno tante finestre quanti sono i contatti e saremo noi a doverli salvare uno per uno.
Questo procedimento va bene se i contatti sono pochi,ma nel mio caso erano piu di 400 contatti.
Le soluzioni che ho trovato sono due:
La prima è convertire i vCard (.vcf) in .Contact e Importarli in Outlook mentre la seconda utilizzando una Macro in VBA senza convertire niente.

Prima soluzione:
Su Windows Vista/ 7 apriamo la cartella Contatti

e importiamo tutti i vCard. cliccando su Importa

Avremo tutti i nostri contatti vCard convertiti in contatti con estensione .contact

Andiamo su Outlook e tramite il menu importa scegliamo Importa Messaggi e Indirizzi Internet

Scegliamo Outlook Express e Windows Mail

Togliamo la spunta da Importa Messaggi e procediamo.

La seconda:
Per Outlook 2010:
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 e inseriamo la seguente procedura.

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

Se tutto è andato a buon fine eseguendo la macro i nostri contatti saranno importati...( ci aprirà e salverà i contatti in modo automatico quindi il processo potrebbe durare alcuni minuti a seconda dei contatti)

Pagine

lunedì 1 ottobre 2012

Importare Contatti vCard(.vcf) in Outlook

Nessun commento:

Posta un commento