RemoveStore 方法

       

将文件夹从用户界面中的“文件夹列表”中删除。

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