VBOffice

Menüleiste mit Schaltflächen erstellen

Dieses Code-Beispiel zeigt, wie Sie bis Outlook 2007 eine eigene Menüleiste mit Schaltflächen erstellen.

Zuletzt geändert: 20.01.2006 | Aufrufe: 38.904  | #16
◀ Vorheriges Beispiel Nächstes Beispiel ▶
SAM SAM
Legen Sie fest, mit welcher "Identität" Ihre Emails beim Empfänger erscheinen sollen. Mit SAM bestimmen Sie Absender, Signatur und Speicherort für Emails anhand von Regeln.

Sie können über die CommandBars der Office-Bibliothek eigene Menü- und Symbolleisten mit eigenen Schaltflächen erstellen.

Es wird empfohlen, diese Objekte immer temporär zu erstellen, so dass sie nach Schließen eines Dokuments oder der Anwendung automatisch wieder entfernt werden. Andernfalls kann es gerade in Office 2000 passieren, dass Sie die eigenen Symbolleisten nicht mehr loswerden.


tip  So fügen Sie Makros in Outlook ein
Private WithEvents Button As Office.CommandBarButton

Private Sub Application_Startup()
  Dim oExplorer As Outlook.Explorer

  Set oExplorer = Application.ActiveExplorer
  Set Button = CreateCommandBarButton(oExplorer.CommandBars)
End Sub

Private Sub Button_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
  MsgBox "Click: " & Ctrl.Caption
End Sub

Private Function CreateCommandBarButton(oBars As Office.CommandBars) As Office.CommandBarButton
  On Error Resume Next
  Dim oMenu As Office.CommandBar
  Dim oBtn As Office.CommandBarButton
  Const BAR_NAME As String = "YourCommandBarName"
  Const CMD_NAME As String = "YourButtonName"

  Set oMenu = oBars(BAR_NAME)
  If oMenu Is Nothing Then
    Set oMenu = oBars.Add(BAR_NAME, msoBarTop, , True)
    Set oBtn = oMenu.Controls.Add(msoControlButton, , CMD_NAME, , True)
    oBtn.Caption = CMD_NAME
    oBtn.Tag = CMD_NAME

  Else
    Set oBtn = oMenu.FindControl(, , CMD_NAME)
    If oBtn Is Nothing Then
      Set oBtn = oMenu.Controls.Add(msoControlButton, , CMD_NAME, , True)
    End If
  End If

  oMenu.Visible = True
  Set CreateCommandBarButton = oBtn
End Function
ReplyAll ReplyAll
Mit diesem Plugin erhalten Sie in verschiedenen Situationen eine Warnung, bevor Sie auf eine Email versehentlich allen anderen Empfängern antworten.
email  Senden Sie eine Nachricht