質問: 削除済みアイテム 既読 vba アウトルックで、受信トレイのメールを未読のまま削除して、削除済みアイテムへ移動させるのですが、 たくさん溜まった削除済みアイテムの未読をvbaで既読にする方法はありますか? 手作業なら 削除済みアイテム→すべて開封済みにする でできます。 vbaでやる方法をお願いします。
回答: 削除済みアイテムのメッセージをすべて開封済みにするものを作ってみました。 sub deletedallread() dim ool dim mydeletedfolder dim mynamespace dim e set ool = createobject("outlook.application") set mynamespace = ool.getnamespace("mapi") set mydeletedfolder = mynamespace.getdefaultfolder(3) 'olfolderdeleteditems = 3 for each e in mydeletedfolder.items e.unread = false next end sub 動作確認はwindows xp上のoffice 2007で行いました。 outlook以外のvbaで動作させるものとして作ったのですが、outlook vbaでもそのままで動作okでした。(outlook vbaでcreateobject("outlook.application")はいかにも間抜けですが) outlookを終了させるコード(ool.quit)は入っていませんが、テストした限りにおいては大丈夫なようです。 (outlookが起動していな状態でoutlook以外のvbaで上記プロシージャを動作させると終了後outlook.exeのプロセスが自動的に消えました) ついでの話ですが、プロシージャの外(前でも後ろでも)に一行 deletedallread を追加して.vbsファイルにテキスト保存したところvbscriptで動作しました。