Disconnect/remove PSTs from users profile with logging

Question

Hi all,
I would like a script that removes (but does not delete) all PST files (except Sharepoint lists) attached to Outlook on a machine (for all users) with logging. I found the script on another site but I would like it to create a log file which records what
it has actually done (machine|user|location of PST that was removed|time it was removed). Can anyone help with the logging bit please? I am thinking include the script as part of logon script and have the log file save in a network location.
Current script is this:
On Error Resume Next
Dim objOutlook 'As Outlook.Application
Dim Stores 'As Outlook.Stores
Dim objFolder 'As Outlook.Folder
Dim i 'As Integer
Set objOutlook = CreateObject("Outlook.Application")
Set Stores = objOutlook.Session.Stores
For i = Stores.Count to 0 step -1
If Stores(i).ExchangeStoreType = 3 Then
If Stores(i).DisplayName <> "SharePoint Lists" then
Set objFolder = Stores(i).GetRootFolder
objOutlook.Session.RemoveStore objFolder
End if
Else
End If
Next
Thank you in advance for your time.

Answer 1

Hello,
You can use VBA Logger for adding log statements to the existing code.
The
RemoveStore method of the Namespace class removes a Personal Folders file (.pst) from the current MAPI profile or session. I.e. the method removes a store only from the Microsoft Outlook user interface. You cannot remove
a store from the main mailbox on the server or from a user's hard disk using the Outlook object model.