<\/p>\n
In den Office-Anwendungen Word, Excel oder Access passen wir vorhandene Kontextmenüs per VBA über das Objektmodell von Office an. Auch das Hinzufügen und die Anzeige benutzerdefinierter Kontextmenüs erledigen wir auf diese Weise. Unter Outlook sieht die Situation anders aus: Hier wurde die Definition von Kontextmenüs bereits in die Ribbondefinition integriert. Wir haben dort einen eigenen Abschnitt namens “contextMenu” mit dem wir vorhandene Kontextmenüs anpassen und erweitern können. In diesem Artikel schauen wir uns an, wie wir solche Anpassungen vornehmen und welche Möglichkeiten sich daraus ergeben.<\/b><\/p>\nKontextmenüs in Outlook<\/h2>\n
Outlook bietet genau wie die übrigen Office-Anwendungen eine Reihe von Kontextmenüs, die für die verschiedensten Elemente oder Bereiche aufgerufen werden können. In Bild 1 sehen wir beispielsweise das Kontextmenü für eine E-Mail.<\/p>\n
![\"Ein](\"..\/fileadmin\/_temp_\/2023_03\/pic_369_001.png\")
<\/p>\n
Bild 1: Ein Kontextmenü in Outlook<\/span><\/b><\/p>\n Die schlechte Nachricht ist: Kontextmenüs unter Outlook lassen sich nur per COM-Add-In anpassen. Die gute ist: Die Basis dafür haben wir bereits in einem weiteren Artikel namens Outlook: Ribbon per COM-Add-In anpassen <\/b>(www.vbentwickler.de\/376<\/b>) gelegt. Dort haben wir mit dem Tool twinBASIC<\/b> bereits ein COM-Add-In erstellt, mit dem wir die normalen Ribbonelemente anpassen können, also die tab<\/b>-, group<\/b>– oder button<\/b>-Elemente im Ribbon von Outlook. Dort haben wir auch bereits die Besonderheit hervorgehoben, dass Outlook als einzige Office-Anwendung mehrere Fenster mit jeweils einem eigenen Ribbon hat. Auch dies ist beim Anpassen von Kontextmenüs zu berücksichtigen. <\/p>\n Die nächste Frage, die wir uns stellen müssen: Können wir nur bestehende Kontextmenüs erweitern oder auch neue Kontextmenüs erstellen? Unter Access beispielsweise kann man auf das Betätigen der rechten Maustaste per Ereignisprozedur reagieren und per VBA ein neues Kontextmenü zusammenstellen und dieses auch anzeigen. Probieren wir also aus, ob wir auch in Outlook benutzerdefinierte Kontextmenüs per VBA erstellen können. Dazu fügen wir die folgende Prozedur in ein neues Modul im VBA-Editor von Outlook ein und führen sie aus:<\/p>\n Die Prozedur scheitert bereits bei Verwendung der CommandBars<\/b>-Auflistung. Diese liefert den Fehler Objekt unterstützt diese Eigenschaft oder Methode nicht<\/b>.<\/p>\n Wir müssen uns beim Anpassen des Kontextmenüs also offensichtlich auf das Erweitern oder Ändern von eingebauten Elementen beschränken. Wir schauen uns an einem Beispiel an, wie das grundsätzlich funktioniert. Dabei gehen wir davon aus, dass wir schon ein COM-Add-In wie im Artikel Outlook: Ribbon per COM-Add-In anpassen <\/b>(www.vbentwickler.de\/376<\/b>) beschrieben erstellt haben.<\/p>\n Für dieses brauchen wir zunächst nur die Funktion GetCustomUI <\/b>anzupassen, die den Code für die Ribbondefinition zusammenstellt. In diesem Fall fügen wir statt des ribbon<\/b>-Elements das Element contextMenus <\/b>zur Ribbondefinition hinzu (siehe Listing 1). Wir können natürlich auch beide gleichzeitig verwenden. Unterhalb dieses Elements legen wir für jedes Kontextmenü, das wir anpassen wollen, ein contextMenu<\/b>-Element an.<\/p>\n Listing 1: Zusammenstellen einer Ribbondefinition zur Erweiterung eines Kontextmenüs<\/span><\/b><\/p>\n Um festzulegen, welches Kontextmenü wir anpassen wollen, benötigen wir die idMso <\/b>des Elements. In diesem Fall nutzen wir den Wert ContextMenuText<\/b>. Dieses Kontextmenü erscheint beispielsweise, wenn wir mit der rechten Maustaste in den Entwurf einer E-Mail klicken (wie wir an den Namen der idMso für ein Kontextmenü kommen, beschreiben wir weiter unten).<\/p>\n Wenn wir nun noch ein button<\/b>-Element wie in hinzufügen und das COM-Add-In erstellen, sieht das entsprechende Kontextmenü wie in Bild 2 aus. Das Icon haben wir wie ebenfalls in dem oben genannten Artikel beschrieben hinzugefügt. Für das button<\/b>-Element haben wir mit dem onAction<\/b>-Attribut festgelegt, welche Prozedur beim Anklicken des Buttons aufgerufen werden soll. Diese sieht so aus:<\/p>\n Bild 2: Benutzerdefinierter Button im Kontextmenü<\/span><\/b><\/p>\n Dies zeigt beim Betätigen des Kontextmenüs die angegebene Meldung an und gibt den Namen des angeklickten Steuerelements aus.<\/p>\n Wenn wir ein Kontextmenü erweitern wollen, wissen wir erst einmal nicht, wie die idMso <\/b>für das entsprechende Element heißt. Dazu können wir die Excel-Dateien mit idMso<\/b>-Werten nutzen, die Microsoft bereitgestellt hat und die wir dem Download zu diesem Artikel beigefügt haben. Diese sind nicht aktuell – Miccrosoft stellt nicht regelmäßig neue Versionen dieser Dateien bereit. Da sich jedoch auch die Ribbons keinen umfangreichen Änderungen unterliegen, ist das erst einmal kein Problem.<\/p>\n Die Namen der meisten Kontextmenüs finden wir in der Datei outlookexplorercontrols.xlsx<\/b>. Hier haben wir für das Feld ControlType<\/b> einen Filter mit dem Wert contextMenu <\/b>definiert und erhalten so die Bezeichnungen aller in der Tabelle enthaltenen Kontextmenüs (siehe Bild 3).<\/p>\n Bild 3: Namen der ContextMenu-Elemente<\/span><\/b><\/p>\n Wie können wir nun, abgesehen von der intuitiven Zuordnung der Bezeichnungen zu den Bereichen, herausfinden, welches contextMenu-Element in welchem Kontext angezeigt wird? <\/p>\n Dazu fügen wir einfach einem COM-Add-In allen contextMenu<\/b>-Elementen einen button hinzu, der den Namen des jeweiligen contextMenu<\/b>-Elements enthält. Dazu nutzen wir unsere Kenntnisse der Excel-VBA-Programmierung und durchlaufen in einer Schleife alle Zeilen des Excel-Dokuments (siehe Listing 2).<\/p>\n Listing 2: Zusammenstellen von contextMenu-Elementen<\/span><\/b><\/p>\n Dabei prüfen wir jeweils, ob die zweite Spalte den Eintrag contextMenu <\/b>enthält. In diesem Fall stellen wir drei Codezeilen für das COM-Add-In zusammen, die im Ergebnis beispielsweise wie folgt aussehen (jeweils in einer Zeile):<\/p>\n Solch ein Konstrukt erstellen wir für alle contextMenu-Elemente und fügen diese dann der obigen getCustomUI-Funktion hinzu. Wenn wir das COM-Add-In nun erstellen und danach Outlook erneut öffnen, finden wir in annähernd jedem Kontextmenü einen Eintrag vor, der den Namen des jeweiligen Kontextmenüs enthält (siehe Bild 4).<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Technik zum Anpassen<\/h2>\n
Anpassen oder auch neue Kontextmenüs definieren?<\/h2>\n
Public Sub <\/span>KontextmenueAnlegen()\r\n Dim <\/span>cbr As <\/span>CommandBar\r\n Dim <\/span>cbb As <\/span>CommandBarButton\r\n Set<\/span> cbr = Application.CommandBars.Add( _\r\n \"Benutzerdefiniert\", msoBarPopup, , True<\/span>)\r\n ...\r\n cbr.ShowPopup\r\nEnd Sub<\/span><\/pre>\nKontextmenü anpassen<\/h2>\n
Private Function <\/span>GetCustomUI(ByVal RibbonID As String<\/span>) As String<\/span> Implements IRibbonExtensibility.GetCustomUI\r\n Dim <\/span>strXML As String<\/span>\r\n strXML &= \"<customUI xmlns=\"\"http:\/\/schemas.microsoft.com\/office\/2009\/07\/customui\"\" loadImage=\"\"LoadImage\"\">\" _\r\n & vbCrLf<\/span>\r\n strXML &= \" <contextMenus>\" & vbCrLf<\/span>\r\n strXML &= \" <contextMenu idMso=\"\"ContextMenuText\"\">\" & vbCrLf<\/span>\r\n strXML &= \" <button id=\"\"btn\"\" label=\"\"Beispielbutton\"\" onAction=\"\"onAction\"\" image=\"\"add.ico\"\"\/>\" & vbCrLf<\/span>\r\n strXML &= \" <\/contextMenu>\" & vbCrLf<\/span>\r\n strXML &= \" <\/contextMenus>\" & vbCrLf<\/span>\r\n strXML &= \"<\/customUI>\" & vbCrLf<\/span>\r\n Return strXML\r\nEnd Function<\/span><\/pre>\n![\"Benutzerdefinierter](\"..\/fileadmin\/_temp_\/2023_03\/pic_369_002.png\")
<\/p>\nPublic Sub <\/span>OnAction(control As <\/span>IRibbonControl)\r\n MsgBox<\/span> \"Steuerelement: \" & control.Id\r\nEnd Sub<\/span><\/pre>\nKontextmenüs identifizieren<\/h2>\n
![\"Namen](\"..\/fileadmin\/_temp_\/2023_03\/pic_369_003.png\")
<\/p>\nPublic Sub <\/span>AlleKontextmenues()\r\n Dim <\/span>i As Long<\/span>\r\n Dim <\/span>lngLetzteZeile As Long<\/span>\r\n Dim <\/span>strXML As String<\/span>\r\n Dim <\/span>strKontextmenue As String<\/span>\r\n lngLetzteZeile = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row\r\n For i = 1 To lngLetzteZeile\r\n If <\/span>Cells(i, 2) = \"contextMenu\" Then<\/span>\r\n strKontextmenue = Cells(i, 1)\r\n If <\/span>Not<\/span> Len<\/span>(strKontextmenue) = 0 Then<\/span>\r\n strXML = strXML & \" strXML &= \"\" <contextMenu idMso=\"\"\"\"\" & strKontextmenue & \"\"\"\"\">\"\" _\r\n & vbcrlf\" & vbCrLf<\/span>\r\n strXML = strXML & \" strXML &= \"\" <button id=\"\"\"\"btn\" & strKontextmenue _\r\n & \"\"\"\"\" label=\"\"\"\"\" & strKontextmenue & \"\"\"\"\" onAction=\"\"\"\"onAction\"\"\"\" image=\"\"\"\"add.ico\"\"\"\"\/>\"\" _\r\n & vbcrlf\" & vbCrLf<\/span>\r\n strXML = strXML & \" strXML &= \"\" <\/contextMenu>\"\" & vbcrlf\" & vbCrLf<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\n Next<\/span> i\r\n Inzwischenablage strXML\r\nEnd Sub<\/span><\/pre>\nstrXML &= \" <contextMenu idMso=\"\"ContextMenuFolder\"\">\" & vbcrlf\r\nstrXML &= \" <button id=\"\"btnContextMenuFolder\"\" label=\"\"ContextMenuFolder\"\" onAction=\"\"onAction\"\" image=\"\"add.ico\"\"\/>\" & vbcrlf\r\nstrXML &= \" <\/contextMenu>\" & vbcrlf<\/pre>\n
![\"Kontextmenü](\"..\/fileadmin\/_temp_\/2023_03\/pic_369_004.png\")
<\/p>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t