![\"Integration](\"..\/fileadmin\/_temp_\/2024_05\/pic_441_001.png\")
<\/p>\nIn einem anderen Artikel namens “Outlook: Mails nach dem Senden per VBA verschieben” (www.vbentwickler.de\/440) haben wir die grundlegenden Techniken gezeigt, mit denen wir E-Mails, die wir selbst versendet haben, nicht in den Ordner Gesendete Elemente verschieben, sondern in einen Ordner unserer Wahl. Damit können wir einfach E-Mails in bestimmten Kontexten direkt in einen Ordner verschieben, wo auch die übrigen E-Mails zu diesem Thema landen. Eigentlich läuft diese Funktion automatisch und bedarf keiner Benutzer-Interaktion, aber wir benötigen eine Möglichkeit, die Regeln für das Verschieben der E-Mails zu definieren. Dazu haben wir eine Textdatei benutzt, die wir für den Benutzer auf einfachem Wege zugänglich machen wollen, zum Beispiel durch das Anklicken eines Ribbonbuttons. Dazu verwenden wir ein COM-Add-In, dem wir auch noch die eigentliche Funktion hinzufügen – und noch ein paar Extras. In diesem Artikel beschreiben wir, wie Du ein solches COM-Add-In mit twinBASIC ganz einfach selbst bauen kannst.<\/b><\/p>\n
Das fertige COM-Add-In findest Du in Versionen für 32-Bit und 64-Bit im Download zu diesem Artikel. Wir beschreiben in diesem Artikel die interessantesten Funktionen des COM-Add-Ins.<\/p>\n
Das COM-Add-In soll Outlook um Funktionen erweitern, mit denen wir festlegen können, dass gesendete E-Mails mit bestimmten Empfänger-E-Mail-Adressen in vorgegebene Outlook-Ordner verschoben werden.<\/p>\n
Das ist eine Funktion, die automatisiert ablaufen sollte. Allerdings ist dazu die Konfiguration der E-Mails und der gewünschten Zielordner erforderlich. Um diese zu realisieren, fügen wir dem Ribbon von Outlook mit dem COM-Add-In zwei Einträge hin einer eigenen Gruppe hinzu.<\/p>\n
Diese soll wie in Bild 1 im Ribbon-Tab Senden\/Empfangen<\/b> erscheinen. Hier finden wir zwei neue Einträge:<\/p>\n
<\/p>\n
Bild 1: Integration des COM-Add-Ins in die Benutzeroberfläche<\/span><\/b><\/p>\n Bild 2: Meldung mit Anweisungen für die Konfigurationsdatei<\/span><\/b><\/p>\n Die Konfigurationsdatei sieht beispielsweise wie in Bild 3 aus. Sie erwartet die Eingabe der einzelnen Zeilen in der Form, dass wir zunächst die E-Mail-Adresse des Empfängers eingeben, dessen E-Mails nach dem Versenden in einen anderen Ordner verschoben werden sollen.<\/p>\n Bild 3: Beispiel für die Konfigurationsdatei<\/span><\/b><\/p>\n Wenn Du die Funktionen des COM-Add-Ins auch in Deinem Outlook nutzen möchtest, kannst Du das ganz einfach erledigen. Speichere die Datei amvSentMailFolders_win32.dll<\/b> oder amvSentMailFolders_win64.dll<\/b>, je nachdem, welche Office-Version Du verwendest, in einem beliebigen Verzeichnis.<\/p>\n Dann öffnest Du Outlook und klickst auf Datei|Optionen<\/b>. Im Optionen<\/b>-Dialog wählst Du den Bereich Add-Ins <\/b>aus. Wähle unten unter Verwalten: <\/b>den Eintrag COM-Add-Ins <\/b>aus und klicke dann auf Los…<\/b>, um den Dialog COM-Add-Ins zu <\/b>öffnen.<\/p>\n Hier findest Du die Schaltfläche Hinzufügen…<\/b>, mit der Du einen Dateiauswahl-Dialog öffnest (siehe Bild 4). Wähle hier eine der oben genannten DLL-Dateien aus und das COM-Add-In wird automatisch registriert und sollte nun direkt startbereit sein. Gegebenenfalls musst Du Outlook nochmal neu starten. Danach findest Du die beiden neuen Einträge im Ribbon von Outlook vor. <\/p>\n Bild 4: Installieren des COM-Add-Ins über die Benutzeroberfläche<\/span><\/b><\/p>\n Das COM-Add-In enthält die folgenden Elemente:<\/p>\n Wenn wir das COM-Add-In mit twinBASIC <\/b>bearbeiten und dort auf den Menübefehl File|Build <\/b>klicken, wird die Funktion zum Registrieren der Anwendung aus dem Modul DllRegistration <\/b>ausgeführt. Die gleiche Funktion wird ausgeführt, wenn wir das COM-Add-In mit RegSvr32 <\/b>registrieren oder über den entsprechenden Dialog von Outlook installieren – wie oben beschreiben.<\/p>\n Das COM-Add-In verwendet zwei Schnittstellen, um auf den Aufruf der Anwendung zu reagieren, in der es verwendet werden soll, in diesem Fall Outlook. Die erste heißt IDTExtensibility2 <\/b>und die zweite IRibbonExtensibility<\/b>.<\/p>\n Die erste stellt einige Ereignisprozeduren zur Verfügung, von denen wir die namens OnConnection <\/b>mit Code füllen. Die anderen benötigen wir eigentlich nicht, aber wenn wir die Schnittstelle IDTExtensibility <\/b>implementieren, müssen wir auch alle Ereignisprozeduren implementieren.<\/p>\n Die Prozedur OnConnection <\/b>wird beim Starten des COM-Add-Ins aufgerufen und enthält den folgenden Code:<\/p>\n Im Wesentlich liefert sie einen Verweis auf die aufrufende Outlook-Instanz, den wir in der folgenden Variablen speichern (im Modul mdlGlobal<\/b>, da diese auch in anderen Modulen verwendet wird):<\/p>\n Außerdem ruft sie die Prozedur CheckConfigurationFile <\/b>auf. Diese versucht, den Pfad aus dem entsprechenden Bereich der Registry auszulesen. Dieser wird beim ersten Start noch nicht vorhanden sein, was dazu führt, dass strFilePath<\/b> nach der Abfrage der Registry mit GetAppSetting <\/b>mit dem Pfad aus App.Path & “\\SentMailFolders.txt” <\/b>gefüllt ist. Wenn diese Datei noch nicht vorhanden ist, wird sie mit der Prozedur CreateConfigurationFile <\/b>angelegt, der wir mit strFilePath <\/b>den Pfad übergeben. Schließlich wird der Pfad in der Registry hinterlegt:<\/p>\n Die Prozedur CreateConfigurationFile <\/b>erwartet den Pfad zu der zu erstellenden Datei als Parameter. Sie nutzt das FileStream<\/b>-Objekt, um die Konfigurationsdatei zu erstellen und eine Beispielzeile einzutragen.<\/p>\n Anschließend speichert sie die neu erstellte Datei:<\/p>\n Schließlich ruft die Prozedur OnConnection <\/b>noch die Prozedur Aktivieren <\/b>auf. Diese haben wir bereits im Artikel Outlook: Mails nach dem Senden per VBA verschieben <\/b>(www.vbentwickler.de\/440<\/b>) beschrieben. Sie erstellt die Items<\/b>-Auflistung für die Elemente im Ordner Gesendete Elemente<\/b>, für die wir eine ebenfalls in diesem Artikel beschriebene Ereignisprozedur definiert haben. Diese sorgt dafür, dass eine in den Ordner Gesendete Elemente <\/b>gelangende E-Mail dahingehend untersucht wird, ob die Empfänger-E-Mail-Adresse in der Konfigurationsdatei des COM-Add-Ins enthalten ist. Auf diese eigentliche Funktion wollen wir in diesem Artikel nicht mehr explizit eingehen.<\/p>\n Die zweite Schnittstelle ist für das Einlesen und Anwenden der Ribbondefinition des COM-Add-Ins verantwortlich. Sie stellt nur eine Funktion zur Verfügung, die ebenfalls beim Start des COM-Add-Ins aufgerufen wird und sieht wie in Listing 1 aus.<\/p>\n Listing 1: Die Funktion GetCustomUI stellt eine Ribbondefinition zusammen und gibt diese zurück.<\/span><\/b><\/p>\n In der Funktion GetCustomUI <\/b>stellen wir die Ribbon-Definition zusammen, welche die Gruppe mit den beiden neuen Schaltflächen für das COM-Add-In zum Ribbon von Outlook hinzufügen soll.<\/p>\n In der Funktion fragen wir zunächst ab, welchen Wert der Parameter RibbonID <\/b>hat. Outlook ist die einzige Office-Anwendung, die mehrere Fenster mit Ribbondefinitionen enthält. Daher prüfen wir hier, ob es sich tatsächlich um das Hauptfenster handelt. Dieses heißt Microsoft.Outlook.Explorer<\/b>.<\/p>\n Danach folgt das Zusammenstellen einer Ribbon-Definition, welche mit dem tab<\/b>-Element und der idMso <\/b>mit dem Wert TabSendReceive <\/b>das Senden\/Empfangen<\/b>-Tab referenziert. Auf diese Weise können wir mit dem folgenden group<\/b>-Element eine neue Gruppe in diesem eingebauten tab<\/b>-Element anlegen. Diese nennen wir grpEditSendMailFolders <\/b>und wir wollen diese direkt hinter der ersten Gruppe mit der ID GroupSendReceive <\/b>einfügen. Deshalb stellen wir das Attribut insertAfterMso <\/b>auf diesen Wert ein.<\/p>\n Danach folgen bereits die beiden button<\/b>-Elemente. Für diese haben wir eingebaute Icons verwendet. Dazu geben wir die idMso<\/b> dieser Elemente an.<\/p>\n Diese können wir beispielsweise in den Outlook-Optionen unter Menüband anpassen <\/b>ermitteln, indem wir dort unter Befehle auswählen <\/b>den Eintrag Alle Befehle <\/b>auswählen, uns das gewünschte Icon aus der Liste auswählen und die idMso <\/b>ermitteln, indem wir mit der Maus über dem Eintrag verharren und aus dem nun erscheinenden ToolTipText<\/b> den englischen Ausdruck in Klammern entnehmen (siehe Bild 5). Diesen Ausdruck geben wir für die Eigenschaft imageMso <\/b>der button<\/b>-Elemente an.<\/p>\n Bild 5: idMso eines Elements herausfinden<\/span><\/b><\/p>\n Für das Attribut onAction <\/b>hinterlegen wir für beide button<\/b>-Elemente den Wert onAction<\/b>. So heißt dann auch die Prozedur, die beim Anklicken ausgelöst werden soll. Diese finden wir in Listing 2.<\/p>\n Listing 2: Die Prozedur onAction wird beim Betätigen der Ribbonbuttons ausgelöst.<\/span><\/b><\/p>\n Die Funktion unterscheidet zunächst in einer Select Case<\/b>-Bedingung nach der Eigenschaft id <\/b>des mit dem Parameter übergebenen Steuerelements, was uns entweder den Wert btnEditSentMailFolders <\/b>oder btnConfigurationFile <\/b>liefert.<\/p>\n Im ersten Fall gibt die Prozedur die bereits weiter oben beschriebene Meldung aus. Dann liest sie aus der Registry den Pfad zu der Konfigurationsdatei aus und trägt diese in strPath <\/b>ein.<\/p>\n Danach wird überprüft, ob die mit strPath <\/b>angegebene Datei bereits vorhanden ist. Falls nicht, legt die Prozedur CreateConfigurationFile <\/b>diese Datei an und ruft mit ShellExecuteA <\/b>die Anwendung zur Anzeige dieser Textdatei auf, in der Regel der Windows-Editor.<\/p>\n Die zweite Schaltfläche namens btnConfigurationFile <\/b>zeigt ebenfalls eine Meldung mit einem Hinweis an, dass der Benutzer nun eine neue Konfigurationsdatei auswählen kann. Danach ruft sie mit ShowFileDialog <\/b>einen Dateiauswahl-Dialog auf und speichert den Pfad zu der ausgewählten Datei mit SaveAppSetting <\/b>in der Registry.<\/p>\n Die übrigen Routinen, welche die eigentlichen Funktionen dieses COM-Add-Ins bereitstellen, haben wir bereits im Artikel Outlook: Mails nach dem Senden per VBA verschieben <\/b>(www.vbentwickler.de\/440<\/b>) beschrieben. Daher wollen wir diese nicht nochmals beschreiben und verweisen auf diesen Artikel.<\/p>\n Es gibt noch genügend Erweiterungsmöglichkeiten. Wir können beispielsweise noch weitere Bedingungen hinzufügen. Bisher verwenden wir nur die E-Mail-Adresse des Empfängers als Bedingung zum Verschieben ein einen anderen Ordner.<\/p>\n Man könnte aber genauso festlegen, dass der Betreff der E-Mail nach bestimmten Schlüsselwörtern untersucht werden soll und die gesendete E-Mail im Falle eines Treffers in einen entsprechenden Ordner verschoben werden soll.<\/p>\n Dies könnte man einfach in der Prozedur objItems_ItemAdd <\/b>einfügen, indem man dort weitere If…Then<\/b>-Bedingungen hinzu programmiert.<\/p>\n","protected":false},"excerpt":{"rendered":" In einem anderen Artikel namens “Outlook: Mails nach dem Senden per VBA verschieben” (www.vbentwickler.de\/440) haben wir die grundlegenden Techniken gezeigt, mit denen wir E-Mails, die wir selbst versendet haben, nicht in den Ordner Gesendete Elemente verschieben, sondern in einen Ordner unserer Wahl. Damit können wir einfach E-Mails in bestimmten Kontexten direkt in einen Ordner verschieben, wo auch die übrigen E-Mails zu diesem Thema landen. Eigentlich läuft diese Funktion automatisch und bedarf keiner Benutzer-Interaktion, aber wir benötigen eine Möglichkeit, die Regeln für das Verschieben der E-Mails zu definieren. Dazu haben wir eine Textdatei benutzt, die wir für den Benutzer auf einfachem Wege zugänglich machen wollen, zum Beispiel durch das Anklicken eines Ribbonbuttons. Dazu verwenden wir ein COM-Add-In, dem wir auch noch die eigentliche Funktion hinzufügen – und noch ein paar Extras. In diesem Artikel beschreiben wir, wie Du ein solches COM-Add-In mit twinBASIC ganz einfach selbst bauen kannst.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662024,66052024,44000027,44000026],"tags":[],"yst_prominent_words":[],"class_list":["post-55000441","post","type-post","status-publish","format-standard","hentry","category-662024","category-66052024","category-Excel_programmieren","category-Outlook_programmieren"],"aioseo_notices":[],"_links":{"self":[{"href":"https:\/\/vbentwickler.de\/data\/wp\/v2\/posts\/55000441","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/vbentwickler.de\/data\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/vbentwickler.de\/data\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/vbentwickler.de\/data\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/vbentwickler.de\/data\/wp\/v2\/comments?post=55000441"}],"version-history":[{"count":0,"href":"https:\/\/vbentwickler.de\/data\/wp\/v2\/posts\/55000441\/revisions"}],"wp:attachment":[{"href":"https:\/\/vbentwickler.de\/data\/wp\/v2\/media?parent=55000441"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/vbentwickler.de\/data\/wp\/v2\/categories?post=55000441"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/vbentwickler.de\/data\/wp\/v2\/tags?post=55000441"},{"taxonomy":"yst_prominent_words","embeddable":true,"href":"https:\/\/vbentwickler.de\/data\/wp\/v2\/yst_prominent_words?post=55000441"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}\n
![\"Meldung](\"..\/fileadmin\/_temp_\/2024_05\/pic_441_002.png\")
<\/p>\n![\"Beispiel](\"..\/fileadmin\/_temp_\/2024_05\/pic_441_003.png\")
<\/p>\nInstallieren des COM-Add-Ins<\/h2>\n
![\"Installieren](\"..\/fileadmin\/_temp_\/2024_05\/pic_441_004.png\")
<\/p>\nFunktionsweise des COM-Add-Ins<\/h2>\n
\n
Beim Starten des COM-Add-Ins<\/h2>\n
Sub <\/span>OnConnection(ByVal Application As Object<\/span>, _\r\n ByVal ConnectMode As <\/span>ext_ConnectMode, _\r\n ByVal AddInInst As Object<\/span>, _\r\n ByRef custom As Variant<\/span>()) _\r\n Implements IDTExtensibility2.OnConnection\r\n Set<\/span> objOutlook = Application\r\n Call<\/span> CheckConfigurationFile()\r\n Call<\/span> Aktivieren\r\nEnd Sub<\/span><\/pre>\nPublic <\/span>objOutlook As <\/span>Outlook.Application<\/pre>\nPublic Sub <\/span>CheckConfigurationFile()\r\n strFilePath = GetAppSetting(\"FilePath\", App.Path & _\r\n \"\\SentMailFolders.txt\", False<\/span>)\r\n If <\/span>Len<\/span>(Dir(strFilePath)) = 0 Then<\/span>\r\n Call<\/span> CreateConfigurationFile(strFilePath)\r\n End If<\/span>\r\n Call<\/span> SaveAppSetting(\"FilePath\", strFilePath)\r\nEnd Sub<\/span><\/pre>\nKonfigurationsdatei erstellen<\/h2>\n
Public Sub <\/span>CreateConfigurationFile(strPath As String<\/span>)\r\n Dim <\/span>objFSO As Object<\/span>\r\n Dim <\/span>objFileStream As Object<\/span>\r\n Set<\/span> objFSO = _\r\n CreateObject(\"Scripting.FileSystemObject\")\r\n If <\/span>Not<\/span> objFSO.FileExists(strPath) Then<\/span>\r\n Set<\/span> objFileStream = _\r\n objFSO.CreateTextFile(strPath, True<\/span>)\r\n objFileStream.WriteLine _\r\n \"test@test.de|<\/font>Outlook\\Posteingang\"\r\n objFileStream.Close\r\n End If<\/span>\r\n Set<\/span> objFileStream = Nothing\r\n Set<\/span> objFSO = Nothing\r\nEnd Sub<\/span><\/pre>\nAktivieren der Funktionen des COM-Add-Ins<\/h2>\n
Anzeigen des Ribbons<\/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 Select Case RibbonID\r\n Case <\/span>\"Microsoft.Outlook.Explorer\"\r\n strXML &= \"<customUI xmlns=\"\"http:\/\/schemas.microsoft.com\/office\/2009\/07\/customui\"\" \" _\r\n & \"loadImage=\"\"LoadImage\"\" onLoad=\"\"onLoad\"\">\" & vbCrLf<\/span>\r\n strXML &= \" <ribbon startFromScratch=\"\"false\"\">\" & vbCrLf<\/span>\r\n strXML &= \" <tabs>\" & vbCrLf<\/span>\r\n strXML &= \" <tab idMso=\"\"TabSendReceive\"\">\" & vbCrLf<\/span>\r\n strXML &= \" <group id=\"\"grpEditSendMailFolders\"\" insertAfterMso=\"\"GroupSendReceive\"\" \" _\r\n & \"label=\"\"amvSendMailFolders\"\">\" & vbCrLf<\/span>\r\n strXML &= \" <button id=\"\"btnEditSentMailFolders\"\" imageMso=\"\"QuickStepTemplateMoveToFolder\"\" \" _\r\n & \"size=\"\"large\"\" label=\"\"Ordner für gesendete E-Mails bearbeiten\"\" onAction=\"\"onAction\"\"\/>\" & vbCrLf<\/span>\r\n strXML &= \" <button id=\"\"btnConfigurationFile\"\" imageMso=\"\"OpenAttach\"\" size=\"\"large\"\" \" _\r\n & \"label=\"\"Speicherort der Konfigurationsdatei ändern\"\" onAction=\"\"onAction\"\"\/>\" & 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\n End Select<\/span>\r\nEnd Function<\/span><\/pre>\n![\"idMso](\"..\/fileadmin\/_temp_\/2024_05\/pic_441_005.png\")
<\/p>\nFunktionen für die Ribbonbuttons<\/h2>\n
Public Sub <\/span>OnAction(control As <\/span>IRibbonControl)\r\n Dim <\/span>strPath As String<\/span>\r\n Select Case control.Id\r\n Case <\/span>\"btnEditSentMailFolders\"\r\n MsgBox<\/span> \"Dies öffnet die Textdatei mit den Zuordnungen der Empfängeradresse zu den Ordnern.\" & vbCrLf<\/span> _\r\n & \"Passe die Einträge an und speichere die Datei.\" & vbCrLf<\/span> & vbCrLf<\/span> _\r\n & \"Die Datei muss in folgendem Format aufgebaut sein:\" & vbCrLf<\/span> _\r\n & \"test@test.de|<\/font>Outlook\\Ordnername\", vbOKOnly + vbInformation, \"amvSentMailFolders\"\r\n strPath = GetAppSetting(\"FilePath\", App.Path & \"\\SentMailFolders.txt\", False<\/span>)\r\n If <\/span>Len<\/span>(Dir(strPath)) = 0 Then<\/span>\r\n CreateConfigurationFile(strPath)\r\n End If<\/span>\r\n ShellExecuteA 0, \"Open\", strPath, vbNullString, vbNullString, SW_NORMAL\r\n Case <\/span>\"btnConfigurationFile\"\r\n MsgBox<\/span> \"Wähle eine neue Datei mit der Konfiguration für das Verschieben gesendeter Elemente aus.\", _\r\n vbOKOnly + vbInformation, \"amvSentMailFolders\"\r\n strPath = ShowFileDialog(strFilePath)\r\n If <\/span>Not<\/span> Len<\/span>(Dir(strPath)) = 0 Then<\/span>\r\n Call<\/span> SaveAppSetting(\"FilePath\", strFilePath)\r\n End If<\/span>\r\n Case Else<\/span>\r\n MsgBox<\/span> \"OnAction nicht behandelt: \" & control.Id\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nZusammenfassung und Ausblick<\/h2>\n