Hi Ken,
thanks for your quick response. Ill try it with Outlook 2000 and
then installing it with 2002/2003. maybe thats it already, i dont
know actually :-)
however, here is a snippet of my creation of the commandbar....
many thanks again,
/Marc
-----------------
Friend Sub InitHandler(olApp As Outlook.Application, strProgID As String)
'Get the Application object for Outlook
Set oApp = Application
'Customize the Outlook Menu structure and toolbar
Set oCBs = oApp.ActiveExplorer.CommandBars
Set oMenuBar = oCBs.Add("Out-of-Office", 1, False, True)
oMenuBar.Visible = True
Set obutton1 = oMenuBar.Controls.Add(msoControlButton, , , , True)
obutton1.Caption = "Out of Office aktivieren"
obutton1.Tag = "oooaktivieren"
obutton1.ToolTipText = "Out of Office aktivieren"
obutton1.FaceId = 5653
obutton1.Style = msoButtonIcon
obutton1.Enabled = True
obutton1.OnAction = "<!" & strProgID & ">"
[...]
end sub