Outlook-Tastenkombination zum Verschieben von Nachrichten in einen anderen Ordner

Ich versuche, meinen Posteingang zu organisieren und meine Nachrichten in bestimmte Ordner zu verschieben. Gibt es eine Tastenkombination, die ich wie folgt einrichten kann:

CRTL + 1: Persönlicher Ordner

CRTL + 2: Ordner Aufgabe 1

CRTL + 3: Task 2-Ordner

Sie können ein Makro oder ein digitales Zertifikat erstellen und es einer Symbolleistenschaltfläche oder einer Tastenkombination zuweisen. Überprüfen Sie die hier aufgeführten Informationen:

http://www.fiftyfoureleven.com/weblog/general/outlook-email-shortcuts

Hier ist der Makrocode:

Sub MoveSelectedMessagesToFolder()
On Error Resume Next


    Dim objFolder As Outlook.MAPIFolder, objInbox As Outlook.MAPIFolder
    Dim objNS As Outlook.NameSpace, objItem As Outlook.MailItem


    Set objNS = Application.GetNamespace("MAPI")
    Set objInbox = objNS.GetDefaultFolder(olFolderInbox)
    Set objFolder = objInbox.Folders("_Reviewed")
    'Assume this is a mail folder


    If objFolder Is Nothing Then
        MsgBox "This folder doesn't exist!", vbOKOnly + vbExclamation, "INVALID FOLDER"
    End If


    If Application.ActiveExplorer.Selection.Count = 0 Then
        'Require that this procedure be called only when a message is selected
        Exit Sub
    End If


    For Each objItem In Application.ActiveExplorer.Selection
        If objFolder.DefaultItemType = olMailItem Then
            If objItem.Class = olMail Then
                objItem.Move objFolder
            End If
        End If
    Next


    Set objItem = Nothing
    Set objFolder = Nothing
    Set objInbox = Nothing
    Set objNS = Nothing
End Sub

Ja, Sie können einen schnellen Schritt erstellen , um dies einfach zu tun. Erstellen Sie eine, um Elemente in einen Ordner zu verschieben, Optionen auszuwählen und eine Verknüpfung zuzuweisen (dies kann STRG + UMSCHALT 1-9 sein).