outlook vba empty deleted items folder

您可以使用Outlook VBA来清空已删除邮件文件夹。下面是一个简单的代码示例:

Sub EmptyDeletedItemsFolder()
    Dim oDeletedItems As Outlook.Folder
    Dim oItem As Object
    Set oDeletedItems = Application.Session.GetDefaultFolder(olFolderDeletedItems)
    For Each oItem In oDeletedItems.Items
        oItem.Delete
    Next oItem
    Set oDeletedItems = Nothing
End Sub

这个代码可以访问默认文件夹中的已删除项目,然后循环删除每个项目。请注意,这将永久删除这些项目,并且它们无法恢复。如果您想测试代码,请先在测试环境中运行它,确保您明白它的行为。

希望这可以帮助您清空Outlook的已删除邮件文件夹。

  •