Wie kann ich in Outlook alle Nachrichten auswählen und mit einem Klick in einen Ordner verschieben?

Question

Ich liebe die anpassbaren „Schnellaktionen“ oben und habe einige eingerichtet, um Dinge in verschiedene Ordner zu verschieben oder Nachrichten in Termine umzuwandeln usw. Was ich allerdings immer noch nicht herausgefunden habe, ist, eine Schaltfläche einzurichten, mit der alle Nachrichten in einem Ordner ausgewählt und in einen anderen angegebenen (vorkonfigurierten) Ordner verschoben werden können.

Grundsätzlich möchte ich, dass alle meine E-Mails aus meinem Posteingang mit einer einzigen Schaltfläche in einen anderen Ordner verschoben werden können, ohne dass ich sie zuerst alle mit Strg+A auswählen muss.

Ist das möglich?

Answer 1

Es ist möglich. Sie müssen dazu allerdings ein Makro schreiben.

Aus "Schreiben eines Outlook-Makros":

Ein Makro ist jede öffentliche Subroutine in einem Codemodul. Eine Funktion oder eine private Subroutine kann kein Makro sein, und ein Makro kann sich nicht in einem Klassen- oder Formularmodul befinden.

So erstellen Sie ein neues Makro

1. Zeigen Sie in Outlook im Menü Extras auf Makro, und klicken Sie dann auf Visual Basic-Editor.
2. Doppelklicken Sie im Projektfenster auf das Modul, das das Makro enthalten soll.
3. Klicken Sie im Menü „Einfügen“ auf „Prozedur“.
4. Geben Sie im Feld Name einen Namen für das Makro ein. Der Name darf keine Leerzeichen enthalten.
5. Klicken Sie auf „OK“. (Die Vorlage für die Makro-Subroutine wird im Codemodulfenster angezeigt.)
6. Geben Sie den Code, den Sie ausführen möchten, im Hauptteil der Subroutine ein.

Hier ist ein (ungetesteter) Beispielcode, um Ihnen den Einstieg zu erleichtern:

Sub MoveItems() 

  Dim Messages As Selection 
  Dim Msg As MailItem 
  Dim NS As NameSpace 

  Set NS = Application.GetNamespace("MAPI") 
  Set Messages = ActiveExplorer.Selection 

  If Messages.Count = 0 Then 
    Exit Sub 
  End If 

  For Each Msg In Messages 
    Msg.Move NS.Folders("Personal Folders").Folders("SavedMail") 
  Next 

End Sub