指定した分類項目のアイテムのアラームを解除するマクロ


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


お世話になっております。

指定の分類項目だけアラーム解除されるマクロを教えていただきたいです。


特定のフォルダー内のアイテムで指定された分類項目のアイテムを検索するには Items オブジェクトの Find メソッドが使用できます。
Find メソッドで条件を指定して検索を実行すると見つかったアイテムが返りますが、次のアイテムを検索するには FindNext を呼び出します。
そして、FindNext が Nothing を返すまで繰り返し呼び出すことで、検索条件に一致するアイテムをすべて取得することが可能です。
アラームの設定は ReminderSet プロパティにより行い、ReminderSet を False とするとアラームが解除できます。
現在表示しているフォルダー内の特定の分類項目を持つアイテムのアラームを解除するマクロは以下のようになります。

' ここをトリプルクリックでマクロ全体を選択できます。
Public Sub ClearAlarmForACategory()
     ' 検索する分類項目を指定
     Const CLEAR_CATEGORY = "テスト"
     '
     Dim fldCurrent As Folder
     Dim colItems As Items
     Dim objItem As MailItem
     ' 現在表示中のフォルダーを取得
     Set fldCurrent = ActiveExplorer.CurrentFolder
     ' フォルダーのアイテム一覧を取得
     Set colItems = fldCurrent.Items
     ' 指定された分類項目のアイテムを検索
     Set objItem = colItems.Find("[分類項目]='" & CLEAR_CATEGORY & "'")
     ' アイテムが見つからなくなるまで繰り返す
     While Not objItem Is Nothing
         ' アラームが設定されていたら解除
         If objItem.ReminderSet Then
             objItem.ReminderSet = False
             objItem.Save
         End If
         ' 次のアイテムを検索
         Set objItem = colItems.FindNext
     Wend
End Sub

マクロの登録方法やメニューへの追加について

コメントを残す

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

WordPress.com ロゴ

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

Google フォト

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

Twitter 画像

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

Facebook の写真

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

%s と連携中