Remove all PST from the Outlook Mailbox using VBScript

Remove all PST from the Outlook Mailbox using VBScript

  • Comments 1

If you would like to remove all of the Personal Folders file .PSTs attached to the Outlook Mailbox profile then we can use RemoveStore Method.

Here is a sample VBScript to perform the job for us:

NOTE: Following programming examples is for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This sample code assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. This sample code is provided for the purpose of illustration only and is not intended to be used in a production environment.

'Sample script to remove Personal Folders files (.pst) from the current MAPI profile or session
RemoveAllPST
 
Sub RemoveAllPST()
Dim objOL 'As New Outlook.Application
Dim objFolders 'As Outlook.MAPIFolders
Dim objFolder 'As Outlook.MAPIFolder
Dim i 'As Interger
Dim strPrompt 'As String
 
Set objOL = CreateObject("Outlook.Application")
Set objFolders = objOL.Session.Folders
For i = objFolders.Count To 1 Step -1
On Error Resume Next
    Set objFolder = objFolders.Item(i)
     
    'Prompt the user for confirmation
    If (InStr(1, objFolder.Name, "Mailbox") = 0) And (InStr(1, objFolder.Name, "Public Folders") = 0) Then
    
    strPrompt = ""
    strPrompt = "Are you sure you want to remove " & objFolder.Name
   
    If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbYes Then
        objOL.Session.RemoveStore objFolder
    End If
    End If
Next
 
End Sub

We can also refer to the article mentioned below related to RemoveStore Method:

NameSpace.RemoveStore Method
http://msdn.microsoft.com/en-us/library/bb219923.aspx

Hope this helps.

Leave a Comment
  • Please add 1 and 3 and type the answer here:
  • Post