次の方法で共有

削除済みアイテム フォルダー内のすべてのアイテムとサブフォルダーを削除する

  • [アーティクル]

ここでは、削除済みアイテム フォルダー内のすべてのアイテムおよびサブフォルダーを削除する 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 のサポートおよびフィードバックを参照してください。