Outlook 键盘快捷方式将邮件移动到不同的文件夹

Question

我正在尝试整理我的收件箱并将我的邮件移动到某些文件夹。是否有我可以设置的键盘快捷键：

CRTL + 1 : 个人文件夹

CRTL + 2：任务 1 文件夹

CRTL + 3：任务 2 文件夹

Answer 1

是的 - 您可以创建一个快速步骤来轻松执行此操作。创建一个以将项目移动到文件夹、选择选项并分配快捷方式（可以是 CTRL + SHIFT 1-9）。

Answer 2

您可以创建宏、数字证书，并将其分配给工具栏按钮或键盘快捷键。查看此处列出的信息：

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

这是宏代码：

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