Migrazione di contatti da Windows Live Mail a Outlook

Se dobbiamo migrare i contatti da Windows Live Mail a Outlook capiremo presto che è un’operazione impossibile. Esportare il .Csv non serve a molto perchè Outlook non riconosce il formato dei campi esportati. Esportare in Vcf può andare bene ma non esiste una modalità per l’importazione BULK in Outlook a meno che non acquistiamo un programma di terze parti.

Il problema si può risolvere con uno script VBA per Outlook.
Esportiamo da Windows Live Mail tutti i Vcf in una cartella : c:\vcards
Spostiamoci su Outlook e premiamo ALT + F11 per aprire il VBA editor.
Andiamo su Tools (Strumenti) > References e selezioniamo : Microsoft Scripting Runtime e Windows Script Host Object Model

Adesso inseriamo questo codice ed eseguiamolo:

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

'original code
'strVCName = "C:\vcards\" & fsFile.Name

'Zeda's fix for spaces in filenames
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 strVCName
        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

Seguici su:

FacebookLinkedIn

Per maggiori informazioni, per suggerimenti e ottenere un preventivo gratuito per le tue esigenze, contatta Aeffegroup.

    Dichiaro di avere inserito nel modulo di richiesta dati reali e dichiaro pertanto che tali dati corrispondono ai propri reali dati personali. Sono consapevole che è facoltà di Aeffegroup perseguire nelle opportune sedi ogni violazione ed abuso.


    Autorizzo il trattamento dei miei dati personali ai sensi del GDPR (Regolamento UE 2016/679) [Privacy Policy]

    captcha

    Contatti da Windows Live Mail a Outlook, Migrazione Contatti Windows Live Mail a Outlook, Migrazione Contatti da Windows Live Mail, Migrare Contatti da Windows Live Mail, Importare Vcf file in Outlook, Outlook Vcf import, Outlook importare vcf

    Commenti disabilitati su Migrazione di contatti da Windows Live Mail a Outlook Read more