메시지를 다른 폴더로 이동하는 Outlook 키보드 단축키

받은 편지함을 정리하고 메시지를 특정 폴더로 이동하려고합니다. 다음과 같이 설정할 수있는 키보드 단축키가 있습니까?

CRTL + 1 : 개인 폴더

CRTL + 2 : 작업 1 폴더

CRTL + 3 : 작업 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

예- 빠른 단계 를 만들어 쉽게 수행 할 수 있습니다 . 항목을 폴더로 이동하고 옵션을 선택한 다음 바로 가기를 지정하십시오 (Ctrl + Shift 1-9).