vba - 在 Outlook 2010 中调用“清理文件夹”的 VBA 代码？

Question

有谁知道右键单击文件夹时在右键单击菜单上调用“清理文件夹”Outlook 2010 命令的 VBA 代码？

我已经在 VBA 代码中走到了我要清理的文件夹：

Private Sub CleanUpAllFolders()
Dim Folders As Outlook.Folders
Dim Folder As Outlook.Folder
Set Folders = Session.GetDefaultFolder(olFolderInbox).Parent.Folders
For Each Folder In Folders
    If Left(Folder.Name, 1) = "_" Then
        ' Clean up folder... how do I invoke that command from VBA on this folder?
    End If
Next
End Sub

但是，我在 Folder 对象本身上看不到任何可以让我调用“清理文件夹”的方法。

如何在 VBA 中当前选定的文件夹上调用这些右键菜单命令之一？

Answer 1

我无法对此进行测试，但从我读到的内容来看，这可能会奏效。

首先找到该命令的idMso值。使用它来查找值：

http://www.microsoft.com/download/en/details.aspx?displaylang=en&id=3582

然后用于Application.CommandBars.ExecuteMso(idMso)执行命令。祝你好运。