我正在尝试整理收件箱并将邮件移至特定文件夹。是否有可以设置的键盘快捷键,例如:
CRTL + 1:个人文件夹
CRTL + 2 :任务 1 文件夹
CRTL + 3 :任务 2 文件夹
答案1
您可以创建宏、数字证书并将其分配给工具栏按钮或键盘快捷键。查看此处列出的信息:
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
答案2
是的 - 您可以创建一个快步轻松完成此操作。创建一个将项目移动到文件夹、选择选项并分配快捷方式(可以是 CTRL + SHIFT 1-9)。