vb.net - que - organizador de tareas google

Agregar un Panel de tareas existente a un nuevo mensaje de correo-Outlook

Question

Tengo un Panel de tareas de Outlook que se abre cuando abre Outlook y lo he agregado usando este enfoque.

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

Estoy mostrando y ocultando el Panel de tareas usando el ejemplo que se da aquí:

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

Entonces, esto funciona con un correo electrónico cuando el usuario hace clic en el botón de alternar. Sin embargo, he agregado otro control de cinta en la ventana Mensaje de correo nuevo de Outlook y me gustaría que este mismo Panel de tareas también esté disponible al costado de esa ventana. Logré crear otro control de cinta (diseñador) y agregué este nuevo botón, pero cuando lo alterno, no abre un panel de tareas en la nueva ventana de mensajes de correo. Solo conmuta la ventana del panel de tareas existente que está disponible en la bandeja de entrada.

Código para el nuevo control de cinta de mensaje de correo:

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

¿Cómo puedo hacer esto?

Answer 1

Según MSDN, puede agregar más de una cinta usando diferentes ID para las cintas:

Puede agregar más de una cinta a un proyecto. Si más de una cinta comparte una ID de cinta, anule el método CreateRibbonExtensibilityObject en la clase ThisAddin de su proyecto para especificar qué cinta se mostrará en tiempo de ejecución.

La función a usar para esto será similar a -

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

Por favor, consulte la referencia de MSDN AQUÍ