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Í