特定のキーワードのフラグをワンクリックで追加するマクロ


コメントで以下のような要望をいただきました。


フラグの初期値が Follow Up (フラグ英語表示の場合) のようになっておりますので、"Call Mike" とか "技術部に連絡" とか "関係部署に電話" とか具体的な内容に上書きして対応しております。
初期値をカスタマイズする方法はないでしょうか。
あるいは選択しているアイテムのフラグを変えるマクロでも対応可能と思います。


残念ながらフラグの初期値をカスタマイズすることはできませんが、マクロでフラグを設定することは可能です。具体的にはアイテムの FlagStatus プロパティに olFlagMarked を設定し、FlagRequest プロパティにフラグの内容を設定します。

以下は、現在開いているアイテムに「技術部に連絡」というフラグをつけるマクロです。このマクロをクイック アクセス ツールバーなどに登録しておけば、ワンクリックで「技術部に連絡」というフラグを追加することができます。

Public Sub AddFlagToCurrentItem()
    Dim objItem
    Set objItem = ActiveInspector.CurrentItem
    objItem.FlagStatus = olFlagMarked
    objItem.FlagRequest = "技術部に連絡"
End Sub

また、受信したメッセージにフラグをつける場合は、FlagIcon プロパティでフラグの色も指定可能です。以下は、選択しているアイテムにまとめて「技術部に連絡」という赤フラグをつけるマクロです。

Public Sub AddFlagToSelectedItems()
    Dim objItem
    For Each objItem in ActiveExplorer.Selection
        objItem.FlagStatus = olFlagMarked
        objItem.FlagRequest = "技術部に連絡"
        objItem.FlagIcon = olRedFlagIcon
        objItem.Save
    Next
End Sub

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

広告

コメントを残す

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

WordPress.com ロゴ

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

Twitter 画像

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

Facebook の写真

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

Google+ フォト

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

%s と連携中