Hallo liebes Forum,
ich wurde von meinem Chef beauftragt einen Button in Outlook 2010 zu integrieren um per One-Click die Vertraulichkeit auf "Vertraulich" zu ändern.
Dies habe ich so implementiert:
Sub AktuelleMail_Vertraulich()
Dim objMail As Outlook.MailItem
Set objMail = Application.ActiveInspector.CurrentItem
If TypeName(objMail) = "MailItem" Then
If objMail.Sensitivity <> olConfidential Then
objMail.Sensitivity = olConfidential
Else
objMail.Sensitivity = olNormal
End If
End If
End Sub
Funktioniert auch einwandfrei. Allerdings bleibt der Button, dem ich das Makro zugewiesen hab, nicht markiert. Somit sieht man nicht auf einem Blick ob die Email Vertraulich ist oder nicht. Dies würde ich gerne ändern. Hat da jemand einen Vorschlag?
Vielen Dank im Vorraus
Gruß
Patze
|