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.