Remove controls from a command bar in outlook

[jamielawjen]

hi there.

i am a seasoned developer (though not in office programming or in vb6), but i am writing an addin for outlook 2000+ in vb6

i have a popmenucontrol which i add on_connection. this works fine.

but, i am having a few problems. when you select a different folder (contacts, calendar, journal, tasks) the control is duplicated in the menu bar. it is not calling the addmenubar sub i created. it just creates another control!

anyhow, i need the menu to disappear when a user is in a folder which contains non mailitems.

so i wrtoe the code below, which should loop through and remove any controls on the menu bar with the name 'Jamies control', if the current folders default items arent mailtype. but, when the code runs, it crashes outlook, with a memory problem. this happens everytime, and it happens when the objcontrol.delete method is run


any help would be greatly appreciated, and please, if there is a better way to do this then please let me know

cheers in advance

jamie

Private Sub objexplorer_ViewSwitch()

    Dim folder As MAPIFolder
    Set folder = Application.ActiveExplorer.CurrentFolder
    Dim objCB As Office.CommandBarControls
    Dim objControl As Office.CommandBarControl
    Set objCB = Application.ActiveExplorer.CommandBars.item("menu bar").controls
    
    If folder.DefaultItemType = olMailItem Then
        
        'remove any controls with the name Jamies Control
        For Each objControl In objCB
            If objControl.Caption = "&Jamies Control" Then
                objControl.Delete
            End If
        Next
        'then we add the new pop up control
        addMenuBarControls

        Else
        
        For Each objControl In objCB
            If objControl.Caption = "&Jamies Control" Then
                objControl.Delete
            End If
        Next
        'addMenuBarControls
    End If
    

End Sub