{"id":55001290,"date":"2021-04-01T00:00:00","date_gmt":"2021-07-31T10:17:38","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=1290"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"OutlookMails_per_Tastenkombination_verschieben","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/OutlookMails_per_Tastenkombination_verschieben\/","title":{"rendered":"Outlook-Mails per Tastenkombination verschieben"},"content":{"rendered":"

\"\"<\/p>\n

Nicht alle eingehenden E-Mails, die man erhält, müssen beantwortet werden. Beispiele sind Bestellbestätigungen, Rechnungen et cetera. Diese wollen Sie aber vielleicht aus dem Posteingangs-Ordner in einen anderen Ordner verschieben, der beispielsweise nur E-Mails enthält, die mit Bestellungen zu tun haben. Das gelingt per Drag and Drop relativ schnell. Noch besser wäre aber eine Tastenkombination, mit der wir die Mails in die Zielordner verschieben könnten. Dann brauchen Sie beim Durchgehen des Posteingangs die Hände gar nicht mehr von der Tastatur zu nehmen. Die hier vorgestellte Lösung berührt zwar nicht die Datenbankanwendung Microsoft Access, um die es eigentlich in diesem Magazin geht, aber diese Lösung für effizienteres Arbeiten wollen wir Ihnen nicht vorenthalten.<\/b><\/p>\n

Es gibt sicher Menschen, für die es in Bezug auf die E-Mails im Posteingang von Outlook nur zwei Möglichkeiten gibt: Beantworten und löschen oder direkt löschen. Die meisten müssen aber vielleicht geschäftliche und andere E-Mails aufbewahren oder machen das einfach aus praktischen Gründen. Zum Beispiel ist es sinnvoll, alle E-Mails, die mit Onlinebestellungen zusammenhängen, aufzubewahren.<\/p>\n

Dazu bietet es sich unter Outlook an, weitere Ordner unterhalb des Ordners Posteingang <\/b>anzulegen und diesen Bezeichnungen wie beispielsweise Bestellungen <\/b>zu geben (siehe Bild 1). E-Mails, die sich im Posteingang befinden und die mit Bestellungen in Zusammenhang stehen, können Sie dann mit der Maus per Drag and Drop in diesen Ordner verschieben.<\/p>\n

\"Bestellungen-Ordner<\/p>\n

Bild 1: Bestellungen-Ordner in Outlook<\/span><\/b><\/p>\n

Wenn Sie jedoch viele solcher E-Mails bekommen, die Sie schnell einem bestimmten Ordner unterhalb des Posteingang-Ordners zuweisen wollen, wird das ewige Drag and Drop schnell anstrengend.<\/p>\n

E-Mails verschieben per Tastenkombination<\/h2>\n

Also haben wir uns überlegt, wie wir solche Arbeitsschritte vereinfachen können. Die naheliegendste Idee ist der Einsatz einer Tastenkombination, mit der wir eine von uns für diesen Zweck angelegte VBA-Prozedur aufrufen wollen. Die Idee mit der VBA-Prozedur können wir umsetzen, aber es gibt keine direkte Möglichkeit in Outlook, eine solche per Tastenkombination aufzurufen. Daher müssen wir einen kleinen Umweg gehen: Wir können VBA-Prozeduren nämlich mit benutzerdefinierten Schaltflächen im Ribbon aufrufen, und dieses kann mit einigen Einschränkungen per Tastenkombination gesteuert werden.<\/p>\n

Wir werden in den nächsten Abschnitten zunächst die benötigten VBA-Prozeduren erstellen und dann die Ribbon-Einträge samt Tastenkombinationen hinzufügen.<\/p>\n

Modul im VBA-Projekt von Outlook anlegen<\/h2>\n

Im Gegensatz zu Access, wo jede Datenbankdatei ein eigenes VBA-Projekt aufweist, gibt es für Outlook ein zentrales VBA-Projekt. Schließlich gibt es in Outlook keine zu öffnenden Dateien beziehungsweise Dokumente wie in den anderen Office-Anwendungen.<\/p>\n

Den VBA-Editor mit diesem VBA-Projekt zeigen Sie von Outlook aus mit der Tastenkombination Alt + F11 <\/b>an. Hier finden Sie standardmäßig nur den Ordner Microsoft Outlook Objekte <\/b>mit der Klasse ThisOutlookSession<\/b>. Um Prozeduren anzulegen, fügen wir über den Menüeintrag Einfügen|Modul <\/b>ein neues Standardmodul hinzu und nennen dieses mdlMailsAndFolders<\/b>. Dieses Modul wir dann im Ordner Module <\/b>angezeigt.<\/p>\n

E-Mail per VBA verschieben<\/h2>\n

Die geplante VBA-Prozedur soll alle zum Zeitpunkt des Aufrufs markierten Einträge des Posteingangs in den mit strFolder <\/b>angegebenen Zielordner verschieben (siehe Listing 1). <\/p>\n

Public Sub <\/span>MoveToFolder(strTargetfolder As String<\/span>)\r\n     Dim <\/span>objMailItem As <\/span>MailItem\r\n     Dim <\/span>objExplorer As <\/span>Explorer\r\n     Dim <\/span>objSelection As <\/span>Selection\r\n     Dim <\/span>objTargetFolder As <\/span>Folder\r\n     Dim <\/span>objCurrentFolder As <\/span>Folder\r\n     Dim <\/span>objNamespace As <\/span>NameSpace\r\n     Dim <\/span>i As Integer<\/span>\r\n     Set<\/span> objExplorer = Application.ActiveExplorer\r\n     Set<\/span> objCurrentFolder = objExplorer.CurrentFolder\r\n     If <\/span>objCurrentFolder.Name = \"Posteingang\" Then<\/span>\r\n         Set<\/span> objSelection = objExplorer.Selection\r\n         Set<\/span> objNamespace = Application.GetNamespace(\"MAPI\")\r\n         Set<\/span> objTargetFolder = GetFolder(objNamespace, strTargetfolder)\r\n         For i = 1 To objSelection.count\r\n             Select Case TypeName(objSelection.Item(i))\r\n                 Case <\/span>\"MailItem\"\r\n                     Set<\/span> objMailItem = objSelection.Item(i)\r\n                     objMailItem.Move objTargetFolder\r\n             End Select<\/span>\r\n         Next<\/span> i\r\n     End If<\/span>\r\nEnd Sub<\/span><\/pre>\n
Listing 1: Verschieben der aktuell markierten E-Mails in den mit strFolder angegebenen Ordner<\/span><\/b><\/p>\n
Dazu deklarieren wir verschiedene Variablen, die wir anschließend füllen. Als Erstes referenzieren wir mit der Variablen objExplorer <\/b>das mit ActiveExplorer <\/b>ermittelte Fenster zur Ansicht von Ordnerinhalten unter Outlook.<\/p>\n
Dann weisen wir den Standardordner des Explorer<\/b>-Objekts der Variablen objCurrentFolder <\/b>zu und prüfen, ob der Name des Ordners Posteingang <\/b>lautet. Wenn Sie eine englische Version von Office nutzen, müssen Sie diese Zeile gegebenenfalls noch anpassen. Hat der Ordner den Namen Posteingang<\/b>, arbeitet die Prozedur die Anweisungen in der If…Then<\/b>-Bedingung ab.<\/p>\n
Hier referenzieren wir die ausgewählten Elemente mit der Variablen objSelection <\/b>und den aktuellen MAPI-Namespace mit objNamespace<\/b>. Leider kann man nicht direkt über den Namen auf Folder<\/b>-Objekte zugreifen, die nicht in der ersten Ebene liegen (also unterhalb von Posteingang<\/b>).<\/p>\n
Deshalb benötigen wir eine Hilfsfunktion namens GetFolder<\/b>, um den mit strTargetfolder <\/b>angegebenen Ordner zu erhalten. Dieser Funktion, die wir weiter unten beschreiben, übergeben wir die Variablen objNamespace <\/b>und strTargetfolder<\/b> und erhalten ein Folder<\/b>-Objekt mit dem Zielordner zurück.<\/p>\n
Danach durchläuft die Prozedur in einer For…Next<\/b>-Schleife über die Zahlen von 1 bis zur Anzahl der markierten Elemente alle betroffenen Einträge. Nach einer Prüfung, ob es sich bei dem jeweiligen Eintrag um eines mit dem Typ MailItem <\/b>handelt, weisen wir dieses der Variablen objMailItem <\/b>zu. Für dieses rufen wir dann die Methode Move <\/b>auf und geben mit objTargetfolder <\/b>den Zielordner für das Verschieben an.<\/p>\n
Die Funktion GetFolder<\/h2>\n
Die Funktion aus Listing 2 erwartet die Angabe des zu verwendenden Namespace<\/b>-Objekts sowie des Pfades zum zu ermittelten Ordner als Parameter.<\/p>\n
Public Function <\/span>GetFolder(objNamespace As <\/span>NameSpace, strSubfolder As String<\/span>) As <\/span>Folder\r\n     Dim <\/span>objFolder As <\/span>Folder\r\n     Dim <\/span>strFolders() As String<\/span>\r\n     Dim <\/span>i As Integer<\/span>\r\n     If <\/span>Left<\/span>(strSubfolder, 2) = \"<\/font>\" Then<\/span>\r\n         strSubfolder = Mid<\/span>(strSubfolder, 3)\r\n     End If<\/span>\r\n     strFolders = Split<\/span>(strSubfolder, \"\\\")\r\n     Set<\/span> objFolder = objNamespace.Folders(strFolders(0))\r\n     If <\/span>UBound<\/span>(strFolders) - LBound<\/span>(strFolders) > 0 Then<\/span>\r\n         For i = LBound<\/span>(strFolders) + 1 To UBound<\/span>(strFolders)\r\n             Set<\/span> objFolder = objFolder.Folders(strFolders(i))\r\n         Next<\/span> i\r\n     End If<\/span>\r\n     Set<\/span> GetFolder = objFolder\r\nEnd Function<\/span><\/pre>\n
Listing 2: Ermitteln eines Folder-Objekts anhand des Pfades<\/span><\/b><\/p>\n
Dieser Pfad lautet beispielsweise für den Ordner Posteingang <\/b>wie folgt:<\/p>\n
<\/font>Outlook\\Posteingang<\/pre>\n
Wenn Sie einen Ordner namens Bestellungen <\/b>verwenden wollen, der sich direkt im Ordner Posteingang <\/b>befindet, lautet der Pfad:<\/p>\n
<\/font>Outlook\\Posteingang\\Bestellungen<\/pre>\n
Nachfolgend wollen wir die einzelnen Elemente des Pfades in ein Array übertragen und dabei die Split<\/b>-Funktion nutzen, um den Pfad an den Backslash-Zeichen aufzuspalten. Dazu müssen wir zunächst die eventuell vorn angegebenen beiden Backslash-Zeichen entfernen. Ob diese Zeichen angegeben wurden, prüfen wir mit einer ersten If…Then<\/b>-Bedingung und entfernen diese gegebenenfalls.<\/p>\n
Um beim obigen Beispiel zu bleiben, erhalten wir nun die folgende Zeichenkette:<\/p>\n
Outlook\\Posteingang\\Bestellungen<\/pre>\n
Mit der Split<\/b>-Anweisung fügen wir nun die durch das Backslash-Zeiten getrennten Teilzeichenketten in die Elemente eines Arrays namens strFolders<\/b>.<\/p>\n
<\/p>\n
Nun weisen wir der Variablen objFolder <\/b>den Ordner zu, der den Namen des ersten Elements des Arrays enthält, in diesem Fall Outlook<\/b>. Sofern das Array strFolders <\/b>mehr als ein Element enthält, was der Fall ist, wenn die Differenz aus dem Index des letzten Elements und dem Index des ersten Elements größer als 0 <\/b>ist, enthält der Pfad einen oder mehrere Ebenen mit Unterordnern.<\/p>\n
Diese wollen wir nun durcharbeiten, bis wir am letzten angegebenen Ordner angelangt sind. Die dazu angelegte For…Next<\/b>-Schleife durchlaufen wir vom zweiten bis zum letzten Element des Arrays. <\/p>\n
Darin weisen wir der Variablen objFolder <\/b>jeweils den Ordner zu, der den Namen aus strFolders(i) <\/b>enthält und sich in dem zuvor mit objFolder <\/b>referenzierten Ordner<\/b>-Element befindet.<\/p>\n
In unserem Beispiel referenzieren wir im ersten Durchlauf der Schleife das Element Posteingang <\/b>mit der Variablen objFolder <\/b>und im zweiten Durchlauf das Element Bestellungen<\/b>.<\/p>\n
Der nach dem Verlassen der Schleife in objFolder <\/b>befindliche Ordner wird schließlich als Funktionsergebnis zurückgeliefert.<\/p>\n
Prozedur MoveToFolder aufrufen<\/h2>\n
Solange wir noch keine Ribbon-Schaltflächen und damit auch noch keine Tastenkombination zu ihrem Aufruf angelegt haben, testen wir die Prozedur vom VBA-Editor aus.<\/p>\n
Dazu können Sie, nachdem Sie eine zu verschiebende E-Mail im Posteingang markiert haben, einen Aufruf wie den folgenden im Direktbereich des VBA-Editors absetzen:<\/p>\n
MoveToFolder \"<\/font>Outlook\\Posteingang\\Bestellungen\"<\/pre>\n
Dadurch wird die aktuell markierte E-Mail in den angegebenen Zielordner verschoben. Sie können testweise auch einmal mehrere Elemente gleichzeitig markieren und auf diese Weise verschieben.<\/p>\n
Startprozedur hinzufügen<\/h2>\n
Für den Aufruf über eine Ribbon-Schaltfläche eignen sich nur öffentlich deklarierte Prozeduren ohne Parameter. Also benötigen wir noch eine Wrapper-Prozedur, welche den Parameter für uns übergibt:<\/p>\n
Public Sub <\/span>MoveToFolder_Bestellungen()\r\n     MoveToFolder \"<\/font>Outlook\\Posteingang\\Bestellungen\"\r\nEnd Sub<\/span><\/pre>\n
Warum bauen wir den Zielordner nicht direkt in die Prozedur MoveToFolder <\/b>ein Weil Sie gegebenenfalls nicht nur einen Zielordner verwenden wollen, sondern vielleicht auch mehrere.<\/p>\n
Dann brauchen Sie für jeden neuen Zielordner nur jeweils eine neue Wrapper-Prozedur hinzuzufügen.<\/p>\n
Zielordner ermitteln<\/h2>\n
Wenn Sie den Pfad zum Zielordner zuverlässig ermitteln wollen, können Sie die folgende Anweisung vom Direktbereich des VBA-Editors aus aufrufen:<\/p>\n
  Application.GetNamespace(\"MAPI\").PickFolder.FolderPath<\/pre>\n
Dies zeigt den Dialog aus Bild 2 an, mit dem Sie den gewünschten Ordner auswählen können. Die Anweisung gibt den Pfad zum angegebenen Ordner im Direktbereich aus.<\/p>\n
\"Auswahl<\/p>\n
Bild 2: Auswahl eines Ordners<\/span><\/b><\/p>\n
Prozedur per Ribbon aufrufen<\/h2>\n
Auf dem Weg, die Prozedur durch eine Tastenkombination aufrufbar zu machen, benötigen wir eine Ribbon-Schaltfläche. Hier gibt es zwei Möglichkeiten:<\/p>\n