メッセージに 1 時間後のアラームをつけるマクロ


メッセージを受信した際、今すぐには手を付けられないものの後で確実に処理したいという場合があります。そのような時はフラグでアラームを設定すればよいのですが、フラグの設定で「今日」を選択するとアラームが稼働時間の 1 時間前に設定されてしまうため、午前中の場合にはちょっと時間が空きすぎてしまったり、残業中で稼働時間が過ぎているとアラームが設定されなかったりします。
そこで、現在開いているアイテムに、現在時刻から 1 時間後のアラームを設定するというマクロを作ってみました。マクロは以下の通りです。このマクロをクイック アクセス ツール バーなどに登録しておくと手軽にフラグが設定でき、メールの返信を忘れたというようなことが防止できるようになります。

' ここをトリプルクリックでマクロ全体を選択できます。
Public Sub FollowThisItemLater()
    Dim objItem 'As MailItem
    If TypeName(Application.ActiveWindow) = "Inspector" Then
        Set objItem = ActiveInspector.CurrentItem
    Else
        Set objItem = ActiveExplorer.Selection(1)
    End If 
    objItem.FlagStatus = olFlagMarked
    objItem.FlagRequest = "ご確認ください"
    objItem.TaskDueDate = DateAdd("h", 2, Now)
    objItem.ReminderTime = DateAdd("h", 1, Now)
    objItem.ReminderSet = True
    objItem.Close olSave
End Sub

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

広告

メッセージに 1 時間後のアラームをつけるマクロ」への2件のフィードバック

  1. アイテムを選択し、[ツール]⇒[マクロ]⇒ThisOutookSession.FolloweThisItemLaterを実行すると
    “オブジェクト変数またはWithブロック変数が設定されていません”となってしまいます。

    環境:OUTLOOK2007

コメントを残す

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

WordPress.com ロゴ

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

Twitter 画像

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

Facebook の写真

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

Google+ フォト

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

%s と連携中