gpt4 book ai didi

vba - 将现有任务 Pane 添加到新邮件 - Outlook

转载 作者:行者123 更新时间:2023-12-04 15:40:48 28 4
gpt4 key购买 nike

我有一个 Outlook 任务 Pane ,它会在您打开 Outlook 时打开,我使用这种方法添加了它。

https://msdn.microsoft.com/en-us/library/aa942846.aspx

我正在使用此处给出的示例显示和隐藏任务 Pane :

https://msdn.microsoft.com/en-us/library/bb608590.aspx

因此,当用户单击切换按钮时,这适用于电子邮件。但是,我在 Outlook 的“新邮件消息”窗口中添加了另一个功能区控件,并且我希望在该窗口的一侧也可以使用相同的任务 Pane 。我设法创建了另一个功能区控件(设计器)并添加了这个新按钮,但是当我切换它时,它不会在新邮件消息窗口上打开任务 Pane 。它仅切换收件箱中可用的现有任务 Pane 窗口。

新邮件消息功能区控件的代码:

Imports Microsoft.Office.Tools.Ribbon
Imports Outlook = Microsoft.Office.Interop.Outlook
Imports Microsoft.Office.Tools

Public Class ComposeSidebarRibbon

Private Sub ComposeSidebarRibbon_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load

End Sub

Private Sub SidebarToggleButton_Click(sender As Object, e As RibbonControlEventArgs) Handles SidebarToggleButton.Click
Globals.ThisAddIn.TaskPane.Visible = TryCast(sender, Microsoft.Office.Tools.Ribbon.RibbonToggleButton).Checked
End Sub
End Class

我该怎么做呢?

最佳答案

根据 MSDN,您可以通过为功能区使用不同的 id 来添加多个功能区 -

You can add more than one ribbon to a project. If more than one ribbon shares a ribbon ID, override the CreateRibbonExtensibilityObject method in the ThisAddin class of your project to specify which ribbon to display at run time.



用于此的功能将类似于 -
Protected Overrides Function CreateRibbonExtensibilityObject() As  _
Microsoft.Office.Core.IRibbonExtensibility
If myCondition = True Then
Return Globals.Factory.GetRibbonFactory().CreateRibbonManager _
(New Microsoft.Office.Tools.Ribbon.IRibbonExtension() _
{New Ribbon1()})
Else
Return Globals.Factory.GetRibbonFactory().CreateRibbonManager _
(New Microsoft.Office.Tools.Ribbon.IRibbonExtension() _
{New Ribbon2()})
End If
End Function

请参阅 MSDN 引用 HERE

关于vba - 将现有任务 Pane 添加到新邮件 - Outlook,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/41908980/

28 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com