VBScript to automatically map PST files into Outlook

Edit Set objFolder = objFSO.GetFolder("H:\PST")to suit your requirements:

**********************

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objnet = CreateObject("wscript.network")

Set olkApp = CreateObject("Outlook.Application")

Set objFolder = objFSO.GetFolder("H:\PST")

For Each objFile In objFolder.Files

   If LCase(objFSO.GetExtensionName(objFile.Name)) = "pst" Then

     olkApp.Session.AddStore objFile.Path

   End If

Next