Attribute VB_Name = "ToggleSensitivity"
Sub TogglePrivateSensitivity()
If ActiveInspector.CurrentItem.Sensitivity = olPrivate Then
ActiveInspector.CurrentItem.Sensitivity = olNormal
MsgBox ("This email is now public")
Else
ActiveInspector.CurrentItem.Sensitivity = olPrivate
MsgBox ("This email is now private")
End If
End Sub