![Outlook 2010 中“查找相关邮件”的快捷方式](https://linux22.com/image/1308043/Outlook%202010%20%E4%B8%AD%E2%80%9C%E6%9F%A5%E6%89%BE%E7%9B%B8%E5%85%B3%E9%82%AE%E4%BB%B6%E2%80%9D%E7%9A%84%E5%BF%AB%E6%8D%B7%E6%96%B9%E5%BC%8F.png)
在 Outlook 2010 中是否可以将键盘快捷键绑定到“查找相关内容 -> 此对话中的消息”功能?
我尝试了“自定义功能区”和“自定义快速访问工具栏”选项来获取可以绑定到 Alt 键组合的按钮,但我无法在可用命令列表中找到“查找相关”命令或“此对话中的消息”命令。
如果有人解决过这样的问题,请帮忙。
答案1
免责声明:我知道这不适用于 Outlook 2010,但这可能为您提供足够的灵感,教您如何基于 Outlook 2007 结构进行构建。
笔记:可以使用 VBA 宏或 Outlook 插件构建以下示例。
如果您在层次结构中找到“相关消息”所在的位置CommandBar
(Outlook 菜单结构) - 您可以利用该Copy
机制,将现有的CommandBarButton
标准CommandBar
(对于 Outlook 2007)。完成此操作后,您可以重命名Caption
并分配不同的快捷键(请参阅下文以供参考)。在这个例子中,我们可以使用Alt+M来触发“相关消息”高级查找对话框。
VSTO 参考
Outlook.Explorer explorer = Application.ActiveExplorer();
// retrieve menu toolbar for this explorer
CommandBar menuBar = explorer.CommandBars.ActiveMenuBar;
for (int i = 1; i <= menuBar.Controls.Count; i++)
{
if (menuBar.Controls[i].Caption == "&Tools")
{
var toolsMenu = menuBar.Controls[i] as CommandBarPopup;
for (int j = 1; j <= toolsMenu.Controls.Count; j++)
{
if (toolsMenu.Controls[j].Caption == "&Instant Search")
{
var searchMenu = toolsMenu.Controls[j] as CommandBarPopup;
for (int k = 1; k <= searchMenu.Controls.Count; k++)
{
if (searchMenu.Controls[k].Caption == "&Related Messages...")
{
var related = searchMenu.Controls[k] as CommandBarButton;
var relatedClone = related.Copy(explorer.CommandBars["Standard"]);
relatedClone.Caption = "Related &Messages";
}
}
}
}
}
}
在 Outlook 2010 中,您可能只需尝试执行以下操作,因为没有标准命令栏 (它被功能区 UI 取代)。然后使用Alt+M然后Enter触发“相关消息”高级查找对话框。但是 - 这尚未经过测试。
var relatedClone = related.Copy(menuBar);
VBA 参考
Sub AddRelatedMessages()
Dim menuBar As CommandBar
Dim toolsMenu As CommandBarPopup, searchMenu As CommandBarPopup
Dim related As CommandBarButton, relatedClone As CommandBarButton
Set menuBar = Application.ActiveExplorer().CommandBars.ActiveMenuBar
Dim i As Integer, j As Integer, k As Integer
For i = 1 To menuBar.Controls.Count Step 1
If (menuBar.Controls(i).Caption = "&Tools") Then
Set toolsMenu = menuBar.Controls(i)
For j = 1 To toolsMenu.Controls.Count Step 1
If (toolsMenu.Controls(j).Caption = "&Instant Search") Then
Set searchMenu = toolsMenu.Controls(j)
For k = 1 To searchMenu.Controls.Count Step 1
If (toolsMenu.Controls(k).Caption = "&Related Messages...") Then
Set related = searchMenu.Controls(k)
Set relatedClone = related.Copy(Explorer.CommandBars("Standard"))
relatedClone.Caption = "Related &Messages"
End If
Next k
End If
Next j
End If
Next i
End Sub
答案2
我认为应该是alt+F然后 ( alt+ C)。
但它对我不起作用,因为当我这样做(alt+ F)时,它会转到文件点击。
答案3
获取可以绑定到 Alt 键组合的按钮,
转到“自定义功能区”、“所有命令”
滚动到“在对话中查找消息”
将其添加(添加 >>)到主页,新组(自定义)
之后,右键单击主页功能区上的新按钮“此对话中的消息”,然后选择
- 添加到快捷工具栏
在我的情况下是第四个快速工具栏按钮,所以 ALT-4 是快捷方式。
希望这能回答你的问题。