削除済みアイテム 既読 ｖｂａ

アウトルックで、受信トレイのメールを未読のまま削除して、削除済みアイテムへ移動させるのですが、
たくさん溜まった削除済みアイテムの未読をＶＢＡで既読にする方法はありますか？

手作業なら
削除済みアイテム→すべて開封済みにする
でできます。

ＶＢＡでやる方法をお願いします。

No.1 ベストアンサー 回答者： queuerev2 回答日時： 2013/04/19 20:39

削除済みアイテムのメッセージをすべて開封済みにするものを作ってみました。

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で動作しました。

この回答へのお礼

ありがとうございました。

お礼日時：2013/05/02 22:17