Hallo NG,

i create a menu with VBA
How can i put own icons in the menu?

mfg
Jens

Code:

Private Sub CreateMenus()
    With m_outlookApp.ActiveExplorer.CommandBars("Tools").Controls.Add
(msoControlPopup, , , , True)
        .Caption = "Attachments"
        .Tag = "Att"
        .BeginGroup = True
        .Enabled = True
        .Visible = True

        Set btnConfig = .Controls.Add(msoControlButton, , , , True)
        With btnConfig
            .Caption = "Configuration"
            .Enabled = True
            .Visible = True
            .FaceId = 59
            .ToolTipText = "Ruft das Configurations Formular auf"
        End With

        Set btnExport = .Controls.Add(msoControlButton, , , , True)
        With btnExport
            .Caption = "Import/Export"
            .Enabled = True
            .Visible = True
            .ToolTipText = "Importieren / Exportieren"
        End With

        Set btnAct = .Controls.Add(msoControlButton, , , , True)
        With btnAct
            .Caption = "Aktiv"
            .State = msoButtonDown
            .Enabled = True
            .ToolTipText = "Aktiviert das Programm"
            .Visible = True
        End With
    End With
End Sub

Copy your custom bitmap to the clipboard, then call CommandBarButton.PasteFace.
In Outlook 2002 you can also set the Picture property.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy  - Outlook, CDO
and MAPI Developer Tool