Hallo, ich möchte wenn ich auf antworten gehe eine neue symbolleiste mit einem button in antworten erstellen. ich weiss aber nicht wie ich das umsetzen muss. kann mir jemand helfen? ich habe einen code der nur auf der eingangsseite von outlook funktioniert!
Dim objCmd As CommandBar
Dim objBtn As CommandBarButton
Set objCmd = Application.ActiveExplorer.CommandBars.Add _
(Name:="Spezial", Position:=1, Temporary:=True)
With objCmd
.Visible = True
Set objBtn = .Controls.Add(Type:=msoControlButton)
With objBtn
.Caption = "Eintrag1"
.Style = msoButtonIcon
.FaceId = 59
End With
End With
Dim objCmd As CommandBar
Dim objBtn As CommandBarButton
Set objCmd = Application.ActiveExplorer.CommandBars.Add _
(Name:="Spezial", Position:=1, Temporary:=True)
With objCmd
.Visible = True
Set objBtn = .Controls.Add(Type:=msoControlButton)
With objBtn
.Caption = "Eintrag1"
.Style = msoButtonIcon
.FaceId = 59
End With
End With
