Script – Importare tutti i pst in Outlook

Dovete creare il profilo utente di Windows o Outlook e la lista dei pst è lunghissima? Ecco lo scipt per agganciarli velocemente.

Un cruccio per me  e i miei colleghi è quando dobbiamo rifare il profilo di un utente e riagganciare i file pst (gli archivi di posta salvati localmente) che si può fare solo una alla volta dal menù Home -> Apri -> Apri file di Outlook. Ci sono alcuni che sono malati e archiviano tutto e possono arrivare ad avere 30 o 40 file e a mano sono una palla specialmente ricordarsi quali hai già agganciato e quali non ancora.
Sono partito da questo post del forum della Microsoft e ho apportato alcune modifiche. Lo script cerca i file pst nella cartella C:\Users\XXX\Documents\File di Outlook\ e li aggancia in modo automatico, poi crea un file di log nella cartella C:\temp\

Copiate il codice qui sotto, copiate in notepad e salvate il file con estensione .vbs

const ForAppending = 8

Set objNetwork = CreateObject("Wscript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set olkApp = CreateObject("Outlook.Application")
Set objFolder = objFSO.GetFolder("c:\Users\"&objNetwork.UserName&"\Documents\File di Outlook\")
set objTextFile = objFSO.OpenTextFile ("C:\temp\ImportPST_"&objNetwork.UserName&".txt", ForAppending, True)

For Each objFile In objFolder.Files
If LCase(objFSO.GetExtensionName(objFile.Name)) = "pst" Then
WScript.Echo "Found PST:" & objFile.Name
On Error Resume Next
Err.Clear
olkApp.Session.AddStore objFile.Path
If Err.Number <> 0 Then
objTextFile.WriteLine(objFile.Name & vbTab & "PST è corroto o in uso")
else
objTextFile.WriteLine(objFile.Name & vbTab & "PST agganciato correttamente")
End If

End If
Next

Info: Il codice funziona con Outlook 2010 su Windows 7 o 8, sia a 32 che 64 bit.

Potrebbero interessarti anche...

Lascia un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *

Questo sito usa Akismet per ridurre lo spam. Scopri come i tuoi dati vengono elaborati.