Dodawanie istniejącego okienka zadań do nowej wiadomości e-mail - Outlook

Question

Mam okienko zadań programu Outlook, które otwiera się po otwarciu programu Outlook i dodałem to za pomocą tego podejścia.

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

ja pokazując i ukrywając Okienko zadań przy użyciu przykład podany tutaj:

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

Tak, to działa z wiadomości e-mail, gdy użytkownik kliknie przycisk przełączania. Jednak dodałem kolejną kontrolkę wstążki w oknie wiadomości nowej poczty programu Outlook i chciałbym, aby to samo okienko zadań było dostępne również po tej stronie. Udało mi się stworzyć kolejną kontrolkę wstążki (projektant) i dodałem ten nowy przycisk, ale kiedy go przełączam, nie otwiera się okienka zadań w oknie nowej wiadomości e-mail. Przełącza tylko istniejące okno panelu zadań, które jest dostępne w skrzynce odbiorczej.

Kod mail Wiadomość Kontroli Nowej Ribbon:

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 

Jak mogę to zabrać?

Answer 1

Zgodnie MSDN można dodać więcej niż jedną wstęgę przy użyciu różnych identyfikatorów dla wstążki -

Można dodać więcej niż jedną taśmę do projektu. Jeśli więcej niż jedna wstążka współużytkuje identyfikator wstążki, zastąp metodę CreateRibbonExtensibilityObject w klasie ThisAddin projektu, aby określić, która wstążka będzie wyświetlana w czasie wykonywania.

Funkcja użyć do tego będzie podobna do -

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 

proszę zobaczyć odniesienia MSDN HERE