将文件夹从用户界面中的“文件夹列表”中删除。
expression.RemoveStore(Folder)
expression 必选。该表达式返回 Namespace 对象。
Folder 必选,MAPIFolder 对象。要从列表中删除的文件夹。
不能从服务器上的主邮箱中删除存储。
以下子例程将名为“Personal 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