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

发布于 2024-12-10 02:45:13 字数 536 浏览 0 评论 0原文

有谁知道右键单击文件夹时调用右键菜单上的“清理文件夹”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

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

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

原文

Does anyone know the VBA code to invoke the "Clean Up Folder" Outlook 2010 command on the right-click menu when right-clicking on a folder?

I have gotten this far in VBA code to get to the folders I want to clean up:

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

However, I can't see any method on the Folder object itself that lets me invoke "Clean Up Folder".

How do I invoke one of those right-click menu commands on the current selected folder in VBA?

分享到QQ

分享到微博