Outlook2003 VBA マクロで迷惑フォルダ内のメールを一括削除したい

質問

行いたいことは、受信トレイ以下に「迷惑メール」と「迷惑メールフォルダ」というフォルダがあるのですが、これらのフォルダ内にあるメールを一括して削除するマクロを作成したいのです。

これまでは、フォルダを選択　→　Ctrl+A　→　Delという操作を行っています。

ネット上のサンプルを参考に以下を作成しましたが、具合が良くないのです。1件づつループして削除させているので、数百件あると非常に処理が重くなるのです。

つまり、「Ctrl+A（全て選択）　→　Del」というようにさくっとした感じで処理がしたいのですが、その方法がわかりません。どうか、宜しくお願い致します。

Sub 複数のフォルダ内のメールを削除()

'お約束？
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")

'フォルダ指定
Set myFolder1 = myNameSpace.Folders("個人用フォルダ").Folders("迷惑メール")
Set myFolder2 = myNameSpace.Folders("個人用フォルダ").Folders("迷惑メールフォルダ")

'（1）「迷惑メール」内を削除

Dim cnt As Integer
TOTAL = myFolder1.Items.Count

For i = 1 To TOTAL

'1番上のメールから順次削除
myFolder.Items(1).Display　'もしかして、これがいけない？
myFolder.Items(1).Delete

Next i

'（2）「迷惑メール」内を削除

・・・（1）と同様

End Sub

今回初めて、Outlook2003 VBAをさわってみましたので、基本がわかっていないと思います。ご指南頂ければ幸いです。

回答No.1

noname#52504 · ベストアンサー

私も決して詳しくはないのですが、
なかなか回答がつかないようですので、とりあえず判ることだけ…。

１．Displayは不要
　＞myFolder.Items(1).Display　'もしかして、これがいけない？
　とありますが、おっしゃるとおりアイテムを表示する必要はありません。
　これを削るだけでかなり違うのではないかと思います。

２．削除の仕方
　削除したメールを[削除済みアイテム]に残す必要がなければ、
　DeleteではなくRemoveを使って完全に削除した方が早いようです。

　複数のアイテムを一括削除する方法については、
　（存在するかもしれませんが）わかりませんでした。

----------------------↓　ココカラ　↓----------------------
Sub Sample()

　Set myolApp = CreateObject("Outlook.Application")
　Set myNamespace = myolApp.GetNamespace("MAPI")

　With myNamespace.Folders("個人用フォルダ")
　　Set myFolder1 = .Folders("迷惑メール")
　　Set myFolder2 = .Folders("迷惑メールフォルダ")
　End With

　Total = myFolder1.Items.Count
　For i = 1 To Total
　　myFolder1.Items.Remove 1
　Next i

　Total = myFolder2.Items.Count
　For i = 1 To Total
　　myFolder2.Items.Remove 1
　Next i

End Sub
----------------------↑　ココマデ　↑----------------------

追記：ところで、cnt変数は宣言だけして使ってないようですが？？

お礼

回答有難うございました。
このような回答を希望していたので、大変助かりました。

＞myFolder.Items(1).Display
の部分は質問中に気がついたので、後で外してみたところ、随分処理が早くなりました。

また、「Remove」の件も、質問しそびれていたため、有難かったです。「Remove」の一語の違いですが、なかなかヘルプやネット上で検索しても見つからないものですね。こういうのはメソッドっていうのでしょうか？何かメソッド一覧のようなものがあればいいのですが。。

追記でご指摘頂いたcnt変数は、確かに不要です。当初、「○件削除しました」というように考えていたのですが、簡素化するためにやめにしました。（削除しそびれていたようです。）

おおむね、問題は解決しているのですが、その他、何か有用な情報が得られるかもしれないので、少しばかり、質問を継続させていただきます。