Outllook COmmandBar

Prøv denne her:
Den er hugget fra Outlook hjælpe filen.

------------------
foundFlag = False

For Each cb In CommandBars
    If cb.Name = "Custom" Then
        foundFlag = True
    End If
Next cb
If Not foundFlag Then
    MsgBox "Menuen 'custom' eksisterer ikke"
    'Kode til oprettelse af menu
End If
------------------

Ja det var ihvertfald tæt på det du sagde :-) Jeg arbejde lidt videre med det du sagde og det blev så til

Public Sub CommandStarter()
    Dim i As Boolean
    Dim cb As CommandBar
    For Each cb In ActiveExplorer.CommandBars
        If cb.Name = "kdeCustom" Then
            cb.Delete
        End If
    Next cb
   
    Dim cmb As CommandBar
 
    Set cmb = ActiveExplorer.CommandBars.Add("kdeCustom")
    cmb.Name = "kdeCustom"
    cmb.Position = msoBarTop
    cmb.Visible = True
    Set cmdButton = cmb.Controls.Add(msoControlComboBox)
   
    cmb.Controls(1).Width = 120
    With cmb.Controls(1)
        .AddItem "Ordre Registrering", 1
        .AddItem "telefon Besked", 2
        .DropDownLines = 2
        .DropDownWidth = 120
        .ListIndex = 2
        .Tag = "ComboBox"
    End With
End Sub


SÅ nu virker det...

vh ck

Excellent. Tak for point. :-)