Pintasan keyboard Outlook untuk memindahkan pesan ke folder lain

Saya mencoba mengatur kotak masuk saya dan memindahkan pesan saya ke folder tertentu. Apakah ada pintasan keyboard yang dapat saya atur seperti:

CTRL + 1: Folder Pribadi

CTRL + 2: Folder Tugas 1

CTRL + 3: Folder Tugas 2

Anda dapat membuat makro, sertifikat digital, dan menetapkannya ke tombol bilah alat atau pintasan keyboard. Lihat informasi yang tercantum di sini:

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

Inilah kode makro:

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

Ya - Anda dapat membuat Langkah cepat untuk dengan mudah melakukan ini. Buat satu untuk memindahkan item ke folder, pilih opsi, dan tetapkan pintasan (yang bisa berupa CTRL + SHIFT 1-9).