Supprimer tous les éléments et sous-dossiers du dossier Éléments supprimés

Cette rubrique présente un exemple de code Visual Basic pour Applications (VBA) qui supprime tous les éléments et sous-dossiers du dossier Éléments supprimés.

Note Lorsque vous supprimez des éléments ou des dossiers d’une collection, vous devez utiliser un compteur de boucle décrémentation. L’utilisation d’un compteur de boucle d’incrémentation échouera.

Vous pouvez uniquement vider le dossier Éléments supprimés, et non supprimer le dossier lui-même. Toutefois, pour supprimer un sous-dossier du dossier Éléments supprimés, il vous suffit de supprimer le sous-dossier sans supprimer au préalable son contenu.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.