แป้นพิมพ์ลัดของ 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)