{"id":55000376,"date":"2023-06-01T00:00:00","date_gmt":"2023-06-21T11:46:17","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=376"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Outlook_Ribbon_per_COMAddIn_anpassen","status":"publish","type":"post","link":"https:\/\/vbentwickler.de\/Outlook_Ribbon_per_COMAddIn_anpassen\/","title":{"rendered":"Outlook: Ribbon per COM-Add-In anpassen"},"content":{"rendered":"

\"\"<\/p>\n

Wenn wir Outlook um eigene Funktionen erweitern wollen, stellt sich eine Frage: Wie wollen wir diese auslösen? Es gibt einige Ereignisse, die wir bereits im Artikel Outlook: Explorer automatisieren (www.vbentwickler.de\/307) erläutert haben. Diese werden beispielsweise durch Benutzeraktionen wie das Verschieben einer E-Mail in einen anderen Ordner ausgelöst. Aber wie können wir eigene Funktionen über die Benutzeroberfläche starten? Dazu bietet sich das Ribbon an. Hier können wir eigene Bereiche definieren, in denen wir unsere Funktionsaufrufe unterbringen. Der vorliegende Artikel erläutert, wie wir das Ribbon unter Outlook anpassen. Dabei sind einige Dinge zu berücksichtigen – zum Beispiel, dass es nicht wie bei den übrigen Office-Anwendungen nur ein Fenster gibt, das eine eigene Ribbondefinition verwendet.<\/b><\/p>\n

Ribbon-Elemente im Überblick<\/h2>\n

Wir beginnen direkt mit dem eingangs erwähnten Umstand, dass Outlook nicht nur eine Ribbondefinition verwendet wie die übrigen Office-Anwendungen.<\/p>\n

Das wird offensichtlich, wenn wir beispielsweise den Ribbonbefehl Start|Neu|Neue E-Mail <\/b>aufrufen. Nicht nur das Outlook-Hauptfenster, sondern auch das Fenster zum Erstellen einer neuen E-Mail weist ein Ribbon auf (siehe Bild 1). Das macht die Sache im Gegensatz zu den übrigen Office-Anwendungen komplizierter. Woher wissen wir, für welches Fenster wir gerade das Ribbon anpassen? Und wie passen wir es in Outlook überhaupt an?<\/p>\n

\"Outlook<\/p>\n

Bild 1: Outlook hat verschiedene Fenster mit Ribbons<\/span><\/b><\/p>\n

Ribbon per Benutzeroberfläche anpassen<\/h2>\n

Genau wie die übrigen Office-Anwendungen bietet auch Outlook die Möglichkeit, das Ribbon über die Benutzeroberfläche anzupassen. Dazu öffnen wir die Outlook-Optionen und wechseln zum Bereich Menüband anpassen<\/b> (siehe Bild 2). Hier finden wir in der rechten Liste einige Einträge mit den Hauptregisterkarten. Je nachdem, welcher Objekttyp gerade im Explorer angezeigt wird, also beispielsweise E-Mail oder Termin, erscheint ein anderes Start<\/b>-Tab. Diese werden auch in der Liste der Hauptregisterkarten dargestellt – zum Beispiel Start (E-Mail) <\/b>oder Start (Kalender)<\/b>.<\/p>\n

\"Anpassen<\/p>\n

Bild 2: Anpassen des Ribbons im Optionen-Dialog von Outlook<\/span><\/b><\/p>\n

Ribbondefinition anpassen<\/h2>\n

Welche Möglichkeiten haben wir, das Ribbon von Outlook und seiner Explorer wie beispielsweise zum Erstellen von E-Mails anzupassen, wenn wir nicht die Benutzeroberfläche nutzen wollen?<\/p>\n

Die einzige Möglichkeit ist die Programmierung eines COM-Add-Ins. Zum Glück kennen wir mit twinBASIC ein praktisches Tool, um COM-Add-Ins zu programmieren. Im Artikel COM-Add-Ins mit twinBASIC <\/b>(www.vbentwickler.de\/311<\/b>) haben wir uns bereits die Grundlagen der Erstellung von COM-Add-Ins mit twinBASIC angesehen. Darauf bauen wir auf und erstellen mit twinBASIC ein neues COM-Add-In auf Basis der Vorlage Samples|MyCOMAddin<\/b>. Dieses passen wir wie nachfolgend beschrieben an, um einen ersten eigenen Ribbon-Eintrag in Outlook zu erzeugen.<\/p>\n

Projekteinstellungen anpassen<\/h2>\n

Nach dem Erstellen des Projekts ändern wir die Projekteinstellungen und fügen einen Verweis auf die Outlook-Bibliothek hinzu. Dazu klicken wir im Project Explorer <\/b>auf den Eintrag Settings<\/b>. Hier tragen wir für Project: Name<\/b>, Project: Description <\/b>und Project: Application Title <\/b>jeweils den Wert OutlookRibbonAnpassen <\/b>ein (siehe Bild 3).<\/p>\n

\"Anpassen<\/p>\n

Bild 3: Anpassen der Projekteinstellungen<\/span><\/b><\/p>\n

Danach fügen wir im gleichen Bereich weiter unten unter COM Type Library \/ ActiveX References <\/b>den Verweis Microsoft Outlook 16.0 Object Library <\/b>hinzu.<\/p>\n

Danach passen wir die Klasse MyCOMAddin<\/b> an, indem wir diese in OutlookRibbonAnpassen <\/b>umbenennen. Entsprechend ändern wir auch den Namen der Klasse im Code. Der allgemeine Teil des Codes der Klasse sieht nun wie folgt aus. Hier sehen wir die ClassId<\/b>, mit der das COM-Add-In in der Registry einigetragen wird. Darunter folgt die eigentliche Definition der Klasse, die zwei Schnittstellen implementiert. IDTExtensibility2 <\/b>enthält die Elemente, die für das Laden des COM-Add-Ins notwendig sind. IRibbonExtensibility <\/b>liefert die Elemente, die für das Anwenden von Anpassungen der Ribbondefinition nötig sind. Außerdem definieren wir hier eine Objektvariable namens objOutlook <\/b>mit dem Typ Outlook.Application<\/b>. Diese füllen wir gleich im Anschluss mit einem Verweis auf die Outlook-Instanz, welche das COM-Add-In lädt:<\/p>\n

[ ClassId (\"2933A563-3C51-4120-AC8A-BA10CC656CA7\") ]\r\nClass<\/span> OutlookRibbonAnpassen\r\n     Implements IDTExtensibility2\r\n     [ WithDispatchForwarding ]\r\n     Implements IRibbonExtensibility\r\n        \r\n     Private <\/span>objOutlook As <\/span>Outlook.Application\r\n     ...\r\nEnd Class<\/span><\/pre>\n
Für die Schnittstelle IDTExtensitility2 <\/b>müssen wir die folgenden fünf Ereignisprozeduren implementieren, von denen wir nur die erste mit einer Anweisung füllen. Das Ereignis OnConnection <\/b>wird beim Verbinden der Anwendung mit dem COM-Add-In ausgelöst und liefert unter anderem mit dem Parameter Application <\/b>einen Verweis auf die aufrufende Anwendung, in diesem Fall Outlook. Den Inhalt dieses Parameters weisen wir der Variablen objOutlook <\/b>zu. Diese und die übrigen Ereignisprozeduren sehen wir in Listing 1.<\/p>\n
Sub <\/span>OnConnection(ByVal Application As Object<\/span>, ByVal ConnectMode As <\/span>ext_ConnectMode, ByVal AddInInst As Object<\/span>, _\r\n         ByRef custom As Variant<\/span>()) Implements IDTExtensibility2.OnConnection\r\n     Set<\/span> objOutlook = Application\r\nEnd Sub<\/span>\r\n    \r\nSub <\/span>OnDisconnection(ByVal RemoveMode As <\/span>ext_DisconnectMode, ByRef custom As Variant<\/span>()) _\r\n         Implements IDTExtensibility2.OnDisconnection\r\nEnd Sub<\/span>\r\n    \r\nSub <\/span>OnAddInsUpdate(ByRef custom As Variant<\/span>()) Implements IDTExtensibility2.OnAddInsUpdate\r\nEnd Sub<\/span>\r\n    \r\nSub <\/span>OnStartupComplete(ByRef custom As Variant<\/span>()) Implements IDTExtensibility2.OnStartupComplete\r\nEnd Sub<\/span>\r\n    \r\nSub <\/span>OnBeginShutdown(ByRef custom As Variant<\/span>()) Implements IDTExtensibility2.OnBeginShutdown\r\nEnd Sub<\/span><\/pre>\n
Listing 1: Implementierung der Schnittstelle IDTExtensibility2<\/span><\/b><\/p>\n
Ribbondefinition anpassen<\/h2>\n
Zum Anpassen der Ribbondefinition beginnen wir mit dem Hinzufügen eines Icons, das wir im Ribbon für eine neu zu erstellende Schaltfläche anzeigen wollen. Dieses fügen wir zum Projekt hinzu, indem wir im Bereich Ressources des Projektexplorers mit der rechten Maustaste auf den Eintrag ICON <\/b>klicken und Add|Import File… <\/b>auswählen. Im nun erscheinenden Dialog wählen wir die gewünschte .ico<\/b>-Datei aus. Diese wird anschließend wie in Bild 4 angezeigt.<\/p>\n
\"Ein<\/p>\n
Bild 4: Ein neues Icon im Projektexplorer<\/span><\/b><\/p>\n
Damit kommen wir zu der Funktion, die durch die Schnittstelle IRibbonExtensibility <\/b>beim Laden des COM-Add-Ins ausgelöst wird. Diese heißt GetCustomUI <\/b>und enthält einen Parameter namens RibbonID<\/b>. Dieser wird gleich noch eine entscheidende Rolle spielen. Erst einmal gehen wir so vor, wie wir es auch bei COM-Add-Ins für die übrigen Office-Anwendungen getan haben. Dazu legen wir die Funktion GetCustomUI <\/b>wie in Listing 2 an. Die Funktion stellt den Code der Ribbondefinition zusammen und gibt diesen als Funktionsergebnis zurück. Die Ribbondefinition enthält zunächst nur ein tab<\/b>-Element mit einem group<\/b>-Element und einem button<\/b>-Element. Für das übergeordnete customUI<\/b>-Element haben wir das Attribut loadImage <\/b>mit dem Wert LoadImage <\/b>hinterlegt. Diese Callbackprozedur hinterlegen wir ebenfalls in der Klasse:<\/p>\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 &= \"  <ribbon>\" & vbCrLf<\/span>\r\n     strXML &= \"    <tabs>\" & vbCrLf<\/span>\r\n     strXML &= \"      <tab id=\"\"tab\"\" label=\"\"Beispieltab\"\">\" & vbCrLf<\/span>\r\n     strXML &= \"        <group id=\"\"grp\"\" label=\"\"Beispielgruppe\"\">\" & vbCrLf<\/span>\r\n     strXML &= \"          <button id=\"\"btn\"\" label=\"\"Beispielbutton\"\" onAction=\"\"onAction\"\" image=\"\"mail.ico\"\" \" _\r\n         & \"size=\"\"large\"\"\/>\" & vbCrLf<\/span>\r\n     strXML &= \"        <\/group>\" & vbCrLf<\/span>\r\n     strXML &= \"      <\/tab>\" & vbCrLf<\/span>\r\n     strXML &= \"    <\/tabs>\" & vbCrLf<\/span>\r\n     strXML &= \"  <\/ribbon>\" & vbCrLf<\/span>\r\n     strXML &= \"<\/customUI>\" & vbCrLf<\/span>\r\n     Return strXML\r\nEnd Function<\/span><\/pre>\n
Listing 2: Implementierung der Schnittstelle IRibbonExtensibility<\/span><\/b><\/p>\n
Function <\/span>LoadImage(imageId As String<\/span>) As <\/span>IPictureDisp\r\n     Return LoadResPicture(imageId, _\r\n         vbResBitmapFromIcon, 32, 32)\r\nEnd Function<\/span><\/pre>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\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
\n\n\t\t\n\t\t