通过

删除“已删除邮件”文件夹中的所有项目和子文件夹

  • 项目

本主题显示了一个 Visual Basic for Applications (VBA) 代码示例，该示例删除“已删除邮件”文件夹中的所有项目和子文件夹。

注意 从集合中删除项目或文件夹时，必须使用递减循环计数器。 如果使用递增的循环计数器，则将失败。

只能清空“已删除邮件”文件夹，而不能删除该文件夹本身。 但是，若要删除“已删除邮件”文件夹的子文件夹，只需删除子文件夹即可，而无需首先删除其内容。

Sub RemoveAllItemsAndFoldersInDeletedItems() 
 Dim oDeletedItems As Outlook.Folder 
 Dim oFolders As Outlook.Folders 
 Dim oItems As Outlook.Items 
 Dim i As Long 
 'Obtain a reference to deleted items folder 
 Set oDeletedItems = Application.Session.GetDefaultFolder(olFolderDeletedItems) 
 Set oItems = oDeletedItems.Items 
 For i = oItems.Count To 1 Step -1 
 oItems.Item(i).Delete 
 Next 
 Set oFolders = oDeletedItems.Folders 
 For i = oFolders.Count To 1 Step -1 
 oFolders.Item(i).Delete 
 Next 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。