受信トレイで分類項目が設定されていないメールを未読にするスクリプト


コメントにて以下のご要望をいただきました。


初めまして。
こういったお願いをすることはとても恐縮なのですが、お時間があれば教えてください。

Windows7 Outlook2007 Exchange環境です。

指定された一つのフォルダ内にあるすべてのメールを対象とし、「分類項目」が空欄である場合、
そのメールを未読にする、という作業をするマクロを作りたいのですが、どんな内容にすればよいでしょうか?
さらに1時間おきに自動で行うということもしたいです。

対象フォルダは自分の受信トレイです。

どうぞよろしくお願いいたします。


1 時間おきに自動で実行するような処理の場合、マクロではなくスクリプトとして実装し、Windows のタスク スケジューラーで起動するようにします。
例えば、以下のようなコードを拡張子 .vbs として保存し、Windows のタスク スケジューラーで呼び出してください。

' ここをトリプルクリックでスクリプト全体を選択できます。
Const olFolderInbox = 6
Dim olkApp
Dim fldInbox
Dim objItem
'
Set olkApp = CreateObject("Outlook.Application")
Set fldInbox = olkApp.Session.GetDefaultFolder(olFolderInbox)
For Each objItem In fldInbox.Items
    If objItem.Categories = "" And objItem.Unread = False Then
        objItem.Unread = True
        objItem.Save
    End If
Next

広告

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト / 変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト / 変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト / 変更 )

Google+ フォト

Google+ アカウントを使ってコメントしています。 ログアウト / 変更 )

%s と連携中