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