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的已删除邮件文件夹。