VBA Outlook功能区自定义 - 按钮名称和图标更改以反映敏感度状态

Question

公司已要求在Outlook中设置自定义功能区按钮，以将电子邮件的敏感度设置为“私密”＃。

使用Outlook选项在Outlook功能区中创建一个新按钮，然后在下面分配宏。但是Boss需要一个更改名称和Icon的按钮来反映当前的隐私状态，而不是MsgBox输出。

我已经读过我需要使用XML进行更改，但不知道如何使用下面的VBA实现这一点。我是以正确的方式接近这个吗？

这是我制作的自定义按钮的照片。 Button Pic

Vba模块

Sub TogglePrivateSensitivity()
If ActiveInspector.CurrentItem.Sensitivity = Outlook.OlSensitivity.olPrivate   Then
ActiveInspector.CurrentItem.Sensitivity = Outlook.OlSensitivity.olNormal

MsgBox ("This email is now public")
Else
ActiveInspector.CurrentItem.Sensitivity = Outlook.OlSensitivity.olPrivate
MsgBox ("This email is now private")
End If
End Sub

Answer 1

您的功能区XML必须指定返回按钮标题和图像的回调（并实现它们），而不是硬编码值。您可以通过调用IRibbonUI.Invalidate强制刷新您的控件。可以从功能区的OnLoad回调中检索IRibbonUI。