<\/p>\n
Wir haben in Access im Unternehmen bereits einige Techniken rund um das Ribbon vorgestellt, aber noch sehr wenige unserer Lösungen tatsächlich mit der Ribbon-Technologie ausgestattet. Das wollen wir am Beispiel des Ticketsystems, das wir in einer eigenen Beitragsreihe behandeln, nachholen. Dort fügen wir nicht nur einige Ribbon-Schaltflächen zur Steuerung der Anwendung ein, sondern legen auch einen kleinen Backstage-Bereich zur Einstellung von Anwendungsoptionen an.<\/b><\/p>\n
Neben den üblichen Schaltflächen, mit denen wir die Formulare und Funktionen der Anwendung aufrufen wollen, soll das Ticketsystem auch einen Backstagebereich erhalten, über den Sie Anwendungseinstellungen einsehen und ändern können. In diesem Fall ist in der Anwendung das Verzeichnis in Outlook festzulegen, in das der Benutzer die E-Mails ziehen soll, die vom Ticketsystem berücksichtigt werden sollen. Diesen Pfad speichern wir in der Datenbank in der Tabelle tblOptionen<\/b>, die dafür das Feld Verzeichnis<\/b> vorhält.<\/p>\n
Der Backstagebereich soll wie in Bild 1 aussehen. Im Gegensatz zur Ribbonleiste selbst ist der Backstagebereich ein wenig komplizierter aufgebaut, aber das soll uns nicht aufhalten. Also schauen wir uns den Code an, der zur Definition unserer Optionen im Backstagebereich notwendig ist.<\/p>\n
![\"Benutzerdefinierter](\"..\/fileadmin\/_temp_\/2017_02\/pic_1081_001.png\")
<\/p>\n
Bild 1: Benutzerdefinierter Backstage-Bereich<\/span><\/b><\/p>\n Der erste Abschnitt der XML-Definition enthält das Element customUI<\/b>, in welchem wir die Callback-Funktionen für das Laden des Ribbons (onLoad<\/b>) und für das Einlesen von Bilddateien (loadImage<\/b>) festgelegt haben (s. Listing 1). Danach folgt die Definition der Ribbon-Leiste (ribbon<\/b>), die wir uns weiter unten genauer ansehen. Schließlich legen wir das backstage<\/b>-Element an, welches die Definition des Backstage-Bereichs enthält – oder in unserem Fall die Erweiterung des BackstageBereichs. Wie Sie der Abbildung entnehmen können, sind unter der aktuellen Definition noch alle eingebauten Elemente vorhanden, was zur Entwicklungszeit durchaus noch sinnvoll sein kann. Später werden wir diese Elemente weitgehend ausblenden.<\/p>\n Listing 1: Definition des Backstage-Bereichs<\/span><\/b><\/p>\n Vorab noch kurz zu den beiden durch die Callbacks onLoad <\/b>und loadImage <\/b>ausgelösten Prozeduren. onLoad <\/b>löst die folgende Prozedur aus, die wir, wie die meisten anderen mit dem Ribbon in Zusammenhang stehenden Prozeduren, im Modul mdlRibbon <\/b>untergebracht haben:<\/p>\n Die hier verwendete Variable deklarieren wir wie folgt im gleichen Modul:<\/p>\n Diese Variable müssen wir mit einem Verweis auf die geladene Ribbon-Definition füllen, damit wir ihre Methoden Invalidate <\/b>und InvalidateControl <\/b>auslösen können. Diese sorgen dafür, dass die Inhalte, Bilder und weiteren Eigenschaften neu geladen werden, sollten sich die Anforderungen geändert haben. Die Callback-Eigenschaft loadImage <\/b>ruft die Prozedur aus Listing 2 auf. Diese soll zunächst prüfen, ob die Tabelle MSysResources<\/b>, welche die Bilder enthält, die im Ribbon angezeigt werden sollen, in der Datenbank vorhanden ist. <\/p>\n Listing 2: Prozedur zum Laden der Ribbon-Bilder<\/span><\/b><\/p>\n Die Prozedur loadImage<\/b> wird für jedes Bild, das in ein Steuerelement des Ribbons geladen werden soll, je einmal aufgerufen. Dabei wird mit dem Parameter image <\/b>jeweils der Name des zu verwendenden Bildes übergeben. Dieser ist immer in der Definition des jeweiligen Objekts für das Attribut image <\/b>enthalten, also beispielsweise:<\/p>\n Damit wird dann die Funktion PicFromSharedResource_Ribbon <\/b>aufgerufen, die sich, wie einige andere für die Ermittlung von Bildern aus der Tabelle MSysResources<\/b>, im Modul mdlRibbonImages <\/b>befindet (siehe Beispieldatenbank). Doch zurück zur Backstage-Definition. Diese wird durch je ein öffnendes und schließendes backstage<\/b>-Element eingeschlossen. Damit unser Eintrag unten unter den übrigen eingebauten Elementen angezeigt wird, fügen wir unterhalb des backstage<\/b>-Elements ein tab<\/b>-Element hinzu. Diesem geben wir eine Beschriftung, einen Titel und eine Breite mit. Der Titel ist groß und breit im Bereich rechts neben der vertikalen Tableiste zu erkennen:<\/p>\n Wir benötigen nur eine der zwei möglichen Spalten, also legen wir unter dem tab<\/b>-Element nur ein firstColumn<\/b>-Element an, das die übrigen Elemente enthält. Zum Beispiel das group<\/b>-Element, dem wir ein leeres primaryItem<\/b>-Element, ein mit einigen Elementen gefülltes topItems<\/b>-Element und ein wiederum leeres bottomItems<\/b>-Element hinzufügen. Das group<\/b>-Element enthält auch einige Attribute zum Beispiel eine Beschriftung (Outlook-Einstellungen<\/b>) und einen helperText<\/b>, der unterhalb der Beschriftung erscheint:<\/p>\n Unter topItems <\/b>fügen wir einige Elemente hinzu – als Erstes ein labelControl<\/b>, das eine Beschriftung enthält:<\/p>\n Darunter wollen wir dann zwei Elemente nebeneinander anordnen, weshalb wir einen layoutContainer <\/b>mit linkszentrierter Ausrichtung nutzen:<\/p>\n Das erste Element ist ein hyperlink<\/b>-Element, das über die Callback-Funktion getLabel <\/b>mit einer Beschriftung gefüllt wird und deren onAction<\/b>-Callback die VBA-Prozedur onAction <\/b>auslöst. Dieses Element ist logischerweise wie ein Hyperlink ausgezeichnet, also in blauer und unterstrichener Schrift:<\/p>\n <\/p>\n Rechts daneben landet ein Button mit der Beschriftung Ordner ändern<\/b>.<\/p>\n Er ist wie folgt definiert und soll die Auswahl eines neuen Ordners ermöglichen:<\/p>\n Die Steuerelemente des Backstage-Bereichs enthalten ein paar Callback-Attribute, die wir im VBA-Modul mdlRibbons <\/b>um entsprechende Prozeduren anreichern.<\/p>\n Die erste sorgt dafür, dass bei einem Klick auf die Schaltfläche Ordner ändern <\/b>der Outlook-Dialog zum Auswählen eines der Outlook-Ordner angezeigt wird (s. Bild 2). Dies löst die Prozedur onAction <\/b>aus und übergibt dieser per Parameter einen Verweis auf das auslösende Steuerelement. Dessen Name ermitteln wir mit der Eigenschaft ID <\/b>des Parameters Control <\/b>und führen nach Steuerelement einen der Zweige einer Select Case<\/b>-Bedingung aus:<\/p>\n Bild 2: Aufruf des Ordner auswählen-Dialogs von Outlook <\/span><\/b><\/p>\n In unserem Fall handelt es sich um den Zweig mit dem Wert btnOrdnerAendern<\/b>, der lediglich den Aufruf einer weiteren Prozedur namens OutlookOrdnerAuswaehlen <\/b>enthält.<\/p>\n Die Prozedur OutlookOrdnerAuswaehlen <\/b>sieht wie in Listing 3 aus. Sie ermittelt zunächst den Namen des aktuell aktiven Fensters, und zwar mit einer Hilfsfunktion namens GetActiveWindowTitle<\/b>.<\/p>\n Listing 3: Die Prozedur zum Auswählen eines neuen Outlook-Ordners<\/span><\/b><\/p>\n Diese nutzt zwei API-Funktionen, nämlich GetForegroundWindow <\/b>und GetWindowText<\/b>, die im Kopf des Moduls mdlAPI <\/b>deklariert werden (s. Listing 4). Die Funktion GetActiveWindowTitle <\/b>ermittelt zunächst mit der Funktion GetForeGroundWindow <\/b>ein Handle auf das aktive Fenster. Dann liest sie mit GetWindowText <\/b>den Titel des Fensters ein und gibt diesen als Rückgabewert der Funktion zurück. Nachdem der Fenstertitel des aktiven Fensters so in der Variablen strFenster <\/b>der Prozedur OutlookordnerAuswaehlen <\/b>gelandet ist, ruft diese eine weitere Funktion namens GetFolderName <\/b>auf. Diese ist scheinbar recht einfach gestrickt, denn sie ruft lediglich die Methode PickFolder <\/b>eines Objekts namens GetMAPI <\/b>auf:<\/p>\n Listing 4: Funktion zum Ermitteln des Titels des aktuellen Windows-Fensters<\/span><\/b><\/p>\n Allerdings ist dies kein Objekt, sondern wiederum eine Funktion, die ein MAPI<\/b>–Folder<\/b>-Objekt zurückliefert. Diese Funktion wollen wir im Rahmen dieses Beitrags jedoch nicht erläutern – bei Interesse schauen Sie sich einfach den Quellcode im Modul mdlOutlook <\/b>der Beispieldatenbank an. Der Benutzer wählt nun im Dialog Ordner auswählen <\/b>den Ordner aus, der als Quellordner für die im Ticketsystem zu verarbeitenden E-Mails dient, die der Benutzer zu diesem Zweck aus dem Posteingang dort hineinzieht. Nachdem das Verzeichnis, zum Beispiel \\\\Outlook\\Posteingang\\Ticketsystem<\/b>, in der Variablen strOrdner <\/b>gelandet ist, erstellt die Prozedur OutlookOrdnerAuswahlen <\/b>ein neues Database<\/b>-Objekt auf Basis der aktuellen Datenbank und ruft dessen Execute<\/b>-Methode auf.<\/p>\n Als Parameter übergibt sie dieser eine UPDATE<\/b>-Abfrage, welche den Wert aus strOrdner <\/b>in das Feld Verzeichnis <\/b>der Tabelle tblOptionen <\/b>einträgt. Wenn dies erfolgreich ist, liefert db.RecordsAffected <\/b>einen Wert ungleich 0<\/b>. Ist der Wert dennoch 0<\/b>, was auf einen Fehler hinweist, geht die Prozedur davon aus, dass noch kein Datensatz in der Tabelle vorhanden ist, um die Option zu speichern. Dann erfolgt der Aufruf einer weiteren Aktionsabfrage, diesmal des Typs INSERT INTO<\/b>. Diese legt dann einen neuen Datensatz in der Tabelle tblOptionen <\/b>an und trägt direkt das Verzeichnis aus strOrdner <\/b>dort ein.<\/p>\n Schließlich folgt eine wichtige Anweisung:<\/p>\n Dieser Aufruf der InvalidateControl<\/b>-Methode mit dem Namen des Steuerelements hypVerzeichnisFuerTickets <\/b>als Parameter sorgt dafür, dass alle Callback-Eigenschaften dieses Elements wie etwa getLabel <\/b>erneut ausgelöst werden. Dies ist auch der Grund, warum wir einen Verweis auf die Instanz der Ribbon-Definition in der Variablen objRibbon_Main <\/b>gespeichert haben. Die dadurch ausgelöste Callback-Prozedur getLabel<\/b> finden Sie in Listing 5. Sie erhält mit dem Parameter Control <\/b>wiederum einen Verweis auf das aufrufende Steuerelement, mit dessen Eigenschaft ID <\/b>sie den Namen dieses Steuerelements ermittelt und diesen in einer Select Case<\/b>-Bedingung auswertet.<\/p>\n Listing 5: Die Callback-Funktion getLabel liefert das Label für das aufrufende Steuerelement.<\/span><\/b><\/p>\n Im Falle von hypVerzeichnisFuerTickets <\/b>ermittelt sie den Wert des Feldes Verzeichnis <\/b>der Tabelle tblOptionen <\/b>und trägt diesen in die Variable strOrdner <\/b>ein. Ist das Feld Verzeichnis <\/b>leer oder findet sich kein passender Datensatz, liefert die Nz<\/b>-Funktion stattdessen den Wert Der Wert der Variablen strOrdner <\/b>wird dann mit dem Rückgabeparameter returnedVal <\/b>an das aufrufende Steuerelement des Ribbons beziehungsweise Backstages zurückgegeben.<\/p>\n Bei diesem Prozedere kann es jedoch sein, dass die Anzeige des Dialogs zum Auswählen des Outlook-Ordners das bereits geöffnete Outlook-Hauptfenster einblendet, dieses aber nicht wieder ausblendet oder in den Hintergrund des Access-Fensters bringt, sodass das Access-Fenster mit der Anwendung nicht mehr sichtbar ist.<\/p>\n Aus diesem Grund haben wir eingangs den Fenstertitel der aktuellen Access-Anwendung ausgelesen und in der Variablen strFenster <\/b>gespeichert. Diesen Wert nutzen wir nun in einem Aufruf der Anweisung AppActivate <\/b>aus, um das Access-Fenster mit unserer Anwendung wieder in den Vordergrund zu bringen. Im nun ebenfalls wieder sichtbaren Backstage-Bereich sollte nun auch der ausgewählte Ordner als Link angezeigt werden. Die Betätigung des Links mit dem aktuell als Ticketordner ausgewählten Outlook-Verzeichnis soll übrigens noch Outlook öffnen beziehungsweise aktivieren und gleich diesen Ordner anzeigen.<\/p>\n Dazu haben wir für das Element hypVerzeichnisFuerTickets <\/b>ebenfalls das Callback-Attribut onAction <\/b>mit dem gleichnamigen Wert gefüllt, was beim Anklicken zu einem Aufruf der Prozedur onAction <\/b>aus Listing 6 führt (hier nur der relevante Ausschnitt).<\/p>\n Listing 6: Anzeigen des Ticket-Ordners in Outlook per Backstage-Schaltfläche<\/span><\/b><\/p>\n Wir ermitteln dort zunächst mit DLookup <\/b>den in der Optionen-Tabelle gespeicherten Wert für das Verzeichnis in Outlook und tragen diesen in die Variable strOrdner <\/b>ein. Hat strOrdner <\/b>danach einen Wert mit einer Länge größer als 0<\/b>, rufen wir mit der Funktion GetFolderByPath <\/b>und dem Parameter strOrdner <\/b>ein Folder<\/b>-Objekt auf und speichern dieses in der Variablen objFolder<\/b> (GetFolderByPath <\/b>ist eine der Funktionen aus dem Modul mdlOutlook<\/b>, die wir hier nicht näher erläutern).<\/p>\n Diesen Ordner zeigen wir dann mit der Display<\/b>-Methode in Outlook an (s. Bild 3). Beachten Sie, dass dabei auch immer der Bereich Posteingang <\/b>in der Seitenleiste von Outlook aktiviert wird – nur für den Fall, dass Sie dort eine andere Ansicht verwenden, wie in meinem Fall die Ordneransicht. Sollte strOrdner <\/b>eine leere Zeichenkette enthalten, zeigt dies eine Meldung an mit einem Hinweis, dass aktuell kein Ticket-Verzeichnis ausgewählt ist. Der Benutzer kann dann direkt ein solches festlegen, wozu die Prozedur die Routine OutlookOrdnerAuswaehlen <\/b>aufruft, die Sie ja bereits weiter oben kennengelernt haben.<\/p>\n Bild 3: Anzeigen des Ticket-Verzeichnisses per Hyperlink aus dem Backstage heraus<\/span><\/b><\/p>\n Damit haben Sie ein erstes Praxisbeispiel für den Einsatz des Backstage-Bereichs unter Access kennengelernt. Natürlich können Sie dort noch weitere Optionen hinzufügen, die Sie in diesem Bereich einstellen oder einsehen möchten. Eine mögliche Optimierung wäre, für den aktuellen Zustand, wo die eingebauten Steuerelemente von Access noch vorhanden sind, eine auffallendere Gestaltung für das Tab<\/b>-Element zu dieser Anwendung zu verwenden.<\/p>\n Sie könnten beispielsweise ausschließlich Großbuchstaben verwenden (EINSTELLUNGEN<\/b>) oder auch den Anwendungsnamen dort unterbringen (Ticketsystem<\/b>). Alternativ können Sie natürlich auch die eingebauten Elemente ausblenden – dies soll jedoch nicht Thema des aktuellen Beitrags sein.<\/p>\n Die Anwendung enthält auch noch ein Ribbon mit Schaltflächen zum Aufrufen der verschiedenen Formulare. Dieses sieht wie in Bild 4 aus.<\/p>\n Bild 4: Ribbon zum Aufrufen der Anwendungsfunkktionen<\/span><\/b><\/p>\n Zur Definition dieser Einträge erweitern Sie den Code in der Tabelle USysRibbons <\/b>wie in Listing 7. Hier entstehen ein Tab<\/b>-Element mit der Beschriftung TICKETSYSTEM <\/b>sowie vier Group<\/b>-Elemente mit den entsprechenden Schaltflächen. Die für das Attribut loadImage<\/b> des customUI<\/b>-Elements hinterlegte Ereignisprozedur sorgt für das Einblenden der Bilder, die jeweils für das Attribut image <\/b>der Schaltflächen angegeben sind.<\/p>\n Listing 7: Defintion des Ribbons mit den übrigen Schaltflächen<\/span><\/b><\/p>\n Die Prozeduren für die onAction<\/b>-Callback-Attribute der Ribbon-Definition finden Sie ebenfalls im Modul <xml version=\"1.0\">\r\n<customUI xmlns=\"http:\/\/schemas.microsoft.com\/office\/2009\/07\/customui\" onLoad=\"OnLoad_Main\" loadImage=\"loadImage\">\r\n <ribbon>\r\n...\r\n <\/ribbon>\r\n <backstage>\r\n <tab id=\"tabEinstellungenBackstage\" label=\"Einstellungen\" title=\"Ticketsystem\" firstColumnMaxWidth=\"600\">\r\n <firstColumn>\r\n <group id=\"grpOutlook\" label=\"Outlook-Einstellungen\" style=\"normal\" helperText=\"Enthält Einstellungen \r\n zur Interaktion mit Microsoft Outlook\">\r\n <primaryItem\/>\r\n <topItems>\r\n <labelControl id=\"lblVerzeichnisFuerTickets\" label=\"Verzeichnis für Tickets:\"\/>\r\n <layoutContainer id=\"xxx33091\" align=\"left\">\r\n <hyperlink id=\"hypVerzeichnisFuerTickets\" getLabel=\"getLabel\" onAction=\"onAction\"\/>\r\n <button id=\"btnOrdnerAendern\" onAction=\"onAction\" label=\"Ordner ändern\"\/>\r\n <\/layoutContainer>\r\n <\/topItems>\r\n <bottomItems\/>\r\n <\/group>\r\n <\/firstColumn>\r\n <\/tab>\r\n <\/backstage>\r\n<\/customUI><\/pre>\n
Sub <\/span>onLoad_Main(ribbon As <\/span>IRibbonUI)\r\n Set<\/span> objRibbon_Main = ribbon\r\nEnd Sub<\/span><\/pre>\nPublic <\/span>objRibbon_Main As <\/span>IRibbonUI<\/pre>\nPublic Sub <\/span>loadImage(Control, ByRef image)\r\n Dim <\/span>lngID As Long<\/span>\r\n On Error Resume Next<\/span>\r\n lngID = Nz(DLookup(\"ID\", \"MSysResources\", \"Name = ''\" & Control & \"''\"), 0)\r\n If <\/span>Err.Number = 3078 Then<\/span>\r\n MsgBox<\/span> \"Die Tabelle ''MSysResources'' mit den Images für die Anzeige im Ribbon fehlt.\" & vbCrLf<\/span> _\r\n & \"Fügen Sie die Images mit dem Ribbon-Admin hinzu\", vbOKOnly + vbExclamation, _\r\n \"Tabelle MSysResources fehlt\"\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n On Error GoTo<\/span> 0\r\n If <\/span>lngID = 0 Then<\/span>\r\n MsgBox<\/span> \"Das Image ''\" & Control & \"'' ist nicht in der Tabelle MSysResources vorhanden. \" & vbCrLf<\/span> _\r\n & \"Fügen Sie dieses über den Kontextmenüeintrag ''Benutzerdefiniertes Image hinzufügen'' \" & vbCrLf<\/span> _\r\n & \"des image-Attributs des entsprechenden Ribbon-Steuerelements hinzu.\"\r\n Else<\/span>\r\n Set<\/span> image = PicFromSharedResource_Ribbon(CStr(Control))\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n<button id=\"btnOffeneMails\" image=\"mail\" label=\"Offene Mails\" onAction=\"onAction\" size=\"large\"\/><\/pre>\n
<tab id=\"tabEinstellungenBackstage\" label=\"Einstellungen\" title=\"Ticketsystem\" firstColumnMaxWidth=\"600\"><\/pre>\n
<group id=\"grpOutlook\" label=\"Outlook-Einstellungen\" style=\"normal\" \r\nhelperText=\"Enthält Einstellungen zur Interaktion mit Microsoft Outlook\"><\/pre>\n
<labelControl id=\"lblVerzeichnisFuerTickets\" label=\"Verzeichnis für Tickets:\"\/><\/pre>\n
<layoutContainer id=\"xxx33091\" align=\"left\">\r\n ...\r\n<\/layoutContainer><\/pre>\n
<hyperlink id=\"hypVerzeichnisFuerTickets\" getLabel=\"getLabel\" onAction=\"onAction\"\/><\/pre>\n
<button id=\"btnOrdnerAendern\" onAction=\"onAction\" label=\"Ordner ändern\"\/><\/pre>\n
Logik hinter dem Backstage-Bereich<\/h2>\n
![\"Aufruf](\"..\/fileadmin\/_temp_\/2017_02\/pic_1081_002.png\")
<\/p>\nSub <\/span>onAction(Control As <\/span>IRibbonControl)\r\n Dim <\/span>objOutlook As <\/span>Outlook.Application\r\n Dim <\/span>objNamespace As <\/span>Outlook.NameSpace\r\n Dim <\/span>objFolder As <\/span>Outlook.Folder\r\n Dim <\/span>strOrdner As String<\/span>\r\n Select Case Control.ID\r\n Case <\/span>\"btnOrdnerAendern\"\r\n Call<\/span> OutlookOrdnerAuswaehlen\r\n ...\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nOutlook-Ordner auswählen<\/h2>\n
Public Sub <\/span>OutlookOrdnerAuswaehlen()\r\n Dim <\/span>strOrdner As String<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>lngCount As Long<\/span>\r\n Dim <\/span>strFenster As String<\/span>\r\n strFenster = GetActiveWindowTitle\r\n strOrdner = GetFolderName\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"UPDATE tblOptionen SET Verzeichnis = ''\" & strOrdner & \"''\", dbFailOnError\r\n lngCount = db.RecordsAffected\r\n If <\/span>lngCount = 0 Then<\/span>\r\n db.Execute \"INSERT INTO tblOptionen(Verzeichnis) VALUES(''\" & strOrdner & \"'')\", dbFailOnError\r\n End If<\/span>\r\n objRibbon_Main.InvalidateControl \"hypVerzeichnisFuerTickets\"\r\n AppActivate strFenster\r\nEnd Sub<\/span><\/pre>\nPrivate <\/span>Declare Function GetForegroundWindow Lib \"user32\" () As Long<\/span>\r\nPrivate <\/span>Declare Function GetWindowText Lib \"user32\" Alias \"GetWindowTextA\" _\r\n (ByVal hwnd As Long<\/span>, ByVal lpString As String<\/span>, ByVal cch As Long<\/span>) As Long<\/span>\r\n \r\nPublic Function <\/span>GetActiveWindowTitle() As String<\/span>\r\n Dim <\/span>nHWnd As Long<\/span>\r\n Dim <\/span>sTitle As String<\/span>\r\n Dim <\/span>nResult As Long<\/span>\r\n nHWnd = GetForegroundWindow()\r\n sTitle = Space$(255)\r\n nResult = GetWindowText(nHWnd, sTitle, Len<\/span>(sTitle))\r\n GetActiveWindowTitle = Left$(sTitle, nResult)\r\nEnd Function<\/span><\/pre>\nPublic Function <\/span>GetFolderName() As String<\/span>\r\n Dim <\/span>objFolder As <\/span>Outlook.Folder\r\n Set<\/span> objFolder = GetMAPI.PickFolder\r\n If <\/span>Not<\/span> objFolder Is Nothing Then<\/span>\r\n GetFolderName = objFolder.FolderPath\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\nobjRibbon_Main.InvalidateControl \"hypVerzeichnisFuerTickets\"<\/pre>\n
Sub <\/span>getLabel(Control As <\/span>IRibbonControl, ByRef returnedVal)\r\n Dim <\/span>strOrdner As String<\/span>\r\n Select Case Control.ID\r\n Case <\/span>\"hypVerzeichnisFuerTickets\"\r\n strOrdner = Nz(DLookup(\"Verzeichnis\", \"tblOptionen\"), \"<Kein Ordner ausgewählt>\")\r\n returnedVal = strOrdner\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nAccess einblenden<\/h2>\n
Sub <\/span>onAction(Control As <\/span>IRibbonControl)\r\n Dim <\/span>objFolder As <\/span>Outlook.Folder\r\n Dim <\/span>strOrdner As String<\/span>\r\n Select Case Control.ID\r\n ...\r\n Case <\/span>\"hypVerzeichnisFuerTickets\"\r\n strOrdner = Nz(DLookup(\"Verzeichnis\", \"tblOptionen\"), \"\")\r\n If <\/span>Not<\/span> Len<\/span>(strOrdner) = 0 Then<\/span>\r\n Set<\/span> objFolder = GetFolderByPath(strOrdner)\r\n objFolder.Display\r\n Else<\/span>\r\n If <\/span>MsgBox<\/span>(\"Kein Ordner festgelegt. Nun einen auswählen\", vbYesNo, \"Ordner auswählen\") = vbYes Then<\/span>\r\n OutlookOrdnerAuswaehlen\r\n End If<\/span>\r\n End If<\/span>\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Anzeigen](\"..\/fileadmin\/_temp_\/2017_02\/pic_1081_003.png\")
<\/p>\nErweiterungen und Optimierungen<\/h2>\n
Definition der Ribbon-Schaltflächen<\/h2>\n
![\"Ribbon](\"..\/fileadmin\/_temp_\/2017_02\/pic_1081_004.png\")
<\/p>\n<xml version=\"1.0\">\r\n<customUI xmlns=\"http:\/\/schemas.microsoft.com\/office\/2009\/07\/customui\" onLoad=\"OnLoad_Main\" loadImage=\"loadImage\">\r\n <ribbon startFromScratch=\"true\">\r\n <tabs>\r\n <tab id=\"tabMails\" label=\"TICKETSYSTEM\">\r\n <group id=\"grpOffen\" label=\"Offene Mails\">\r\n <button image=\"mail\" label=\"Offene Mails\" id=\"btnOffeneMails\" onAction=\"onAction\" size=\"large\"\/>\r\n <\/group>\r\n <group id=\"grpKunden\" label=\"Kunden\">\r\n <button image=\"users4\" label=\"Kunden bearbeiten\" id=\"btnKundenBearbeiten\" onAction=\"onAction\" size=\"large\"\/>\r\n <\/group>\r\n <group id=\"grpTickets\" label=\"Tickets\">\r\n <button image=\"ticket\" label=\"Ticketübersicht\" id=\"btnTicketuebersicht\" onAction=\"onAction\" size=\"large\"\/>\r\n <\/group>\r\n <group id=\"grpAktionen\" label=\"Aktionen\">\r\n <button image=\"checkbox_selected\" label=\"Aktionstypen bearbeiten\" id=\"btnAktionstypenBearbeiten\" \r\n onAction=\"onAction\" size=\"large\"\/>\r\n <button image=\"radio_button_group\" label=\"Aktionsgruppen bearbeiten\" id=\"btnAktionsgruppenBearbeiten\" \r\n onAction=\"onAction\" size=\"large\"\/>\r\n <\/group>\r\n <\/tab>\r\n <\/tabs>\r\n <\/ribbon>\r\n <backstage>...<\/backstage>\r\n<\/customUI><\/pre>\n