Câu trả lời:
Bạn có thể tạo một macro, chứng chỉ kỹ thuật số và gán nó vào nút thanh công cụ hoặc phím tắt. Kiểm tra thông tin được liệt kê ở đây:
http://www.fiftyfoureleven.com/weblog/general/outlook-email-shortype
Đây là mã macro:
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
Có - bạn có thể tạo Bước Nhanh để dễ dàng thực hiện việc này. Tạo một mục để di chuyển các mục vào thư mục, chọn tùy chọn và gán phím tắt (có thể là CTRL + SHIFT 1-9).