vba - 在 Outlook 2010 的“新邮件消息”功能区中切换自定义按钮

Question

我创建了一个新的自定义按钮，将敏感度设置为机密。

我希望按钮能够执行以下操作：

1. 每次按下按钮时切换设置（设置和取消设置机密标签）。
2. 当灵敏度设置当前设置为机密时突出显示（类似于设置“高重要性”标签的行为。

.

Sub setConfidential()

ActiveInspector.CurrentItem.Sensitivity = olConfidential

End Sub

Answer 1

回复：每次按下按钮时切换设置（设置和取消设置机密标签）。

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