vba - Outlook 2010 内の新しいメール メッセージ リボンのカスタマイズされたボタンを切り替える

Question

秘密度を機密に設定する新しいカスタマイズされたボタンを作成しました。

ボタンで次のことができるようにしたいと思います。

1. ボタンを押すたびに設定を切り替えます (機密タグの設定と設定解除)。
2. 機密設定が現在機密に設定されている場合に強調表示されます (「重要度の高い」タグを設定するのと同様の動作です。

.

Sub setConfidential()

ActiveInspector.CurrentItem.Sensitivity = olConfidential

End Sub

Answer 1

Re: ボタンを押すたびに設定を切り替えます (親展タグの設定と設定解除)。

Sub ToggleSensitivity()
    if ActiveInspector.CurrentItem.Sensitivity = olConfidential then
        ActiveInspector.CurrentItem.Sensitivity = olNormal
    else
        ActiveInspector.CurrentItem.Sensitivity = olConfidential
    end if
End Sub