RemoveStore Method
Removes a folder from the Folder List in the user interface.
expression.RemoveStore(Folder)
expression Required. An expression that returns a Namespace object.
Folder Required MAPIFolder object. The folder to be deleted from the list.
Remarks
You cannot remove a store from the main mailbox on the server.
Example
The following subroutine removes a folder called Personal Folders from the list of folders.
Sub RemovePST()
Dim objName As NameSpace
Dim objFolder As MAPIFolder
Set objName = Application.GetNamespace("MAPI")
Set objFolder = objName.Folders.Item("Personal Folders")
objName.RemoveStore objFolder
End Sub