M
mcp_virtue
Hi,
I am working on a COM-AddIn and therefore I need the ChangeEvent of a
ComboBox I added to Outlook 2003.
But I don't know how to do it. I looked for tipps or code snippets and found
some; but they don't work!
here is my code:
Dim olMeeting As AppointmentItem
Dim WithEvents myBox As CommandBarComboBox, myBar As CommandBar
Public Sub OnConnection(ByVal ...) implements ...
myApp = New Microsoft.Office.Interop.Outlook.Application
olMeeting = myApp.CreateItem(OlItemType.olAppointmentItem)
myBar = olMeeting.GetInspector.CommandBars.Add(Name:="MyCombo", _
Position:=MsoBarPosition.msoBarTop, Temporary:=False)
myBox =
myBar.Controls.Add(Type:=MsoControlType.msoControlDropdown)
myBar.Visible = True
End Sub
myBox.OnAction doesn't work
the other comfortable way through selecting the event from the environment
doesn't work either.
What am I making wrong?
thx for help
I am working on a COM-AddIn and therefore I need the ChangeEvent of a
ComboBox I added to Outlook 2003.
But I don't know how to do it. I looked for tipps or code snippets and found
some; but they don't work!
here is my code:
Dim olMeeting As AppointmentItem
Dim WithEvents myBox As CommandBarComboBox, myBar As CommandBar
Public Sub OnConnection(ByVal ...) implements ...
myApp = New Microsoft.Office.Interop.Outlook.Application
olMeeting = myApp.CreateItem(OlItemType.olAppointmentItem)
myBar = olMeeting.GetInspector.CommandBars.Add(Name:="MyCombo", _
Position:=MsoBarPosition.msoBarTop, Temporary:=False)
myBox =
myBar.Controls.Add(Type:=MsoControlType.msoControlDropdown)
myBar.Visible = True
End Sub
myBox.OnAction doesn't work
the other comfortable way through selecting the event from the environment
doesn't work either.
What am I making wrong?
thx for help