vb.net - नये मेल संदेश के लिए मौजूदा टास्क फलक जोड़ना-आउटलुक



user-controls outlook-addin (1)

एमएसडीएन के अनुसार आप रिबन के लिए अलग आईडी का उपयोग करके एक से अधिक रिबन जोड़ सकते हैं -

आप एक परियोजना से अधिक एक रिबन जोड़ सकते हैं यदि एक से अधिक रिबन एक रिबन आईडी साझा करता है, तो रनबैग पर प्रदर्शित करने के लिए रिबन निर्दिष्ट करने के लिए अपनी प्रोजेक्ट के ThisAddin वर्ग में CreateRibbonExtensibilityObject विधि को ओवरराइड करें।

इसके लिए उपयोग करने वाला फ़ंक्शन -

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 संदर्भ देखें

मेरे पास एक आउटलुक टास्क फलक है जो खुलता है जब आप आउटलुक खोलते हैं और मैंने इसे इस दृष्टिकोण का उपयोग करते हुए जोड़ा है I

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

मैं यहां दिए गए उदाहरण का उपयोग करके कार्य फलक दिखा रहा है और छिपा रहा हूं:

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

इसलिए, यह एक ईमेल के साथ काम करता है जब उपयोगकर्ता टॉगल बटन पर क्लिक करता है। हालांकि, मैंने Outlook के न्यू मेल संदेश विंडो पर एक और रिबन नियंत्रण जोड़ लिया है और मुझे यह वही टास्क फलक भी उस विंडो के किनारे उपलब्ध होना चाहिए। मैं एक और रिबन कंट्रोल (डिजाइनर) बनाने में कामयाब रहा हूं और यह नया बटन जोड़ा है, लेकिन जब मैं इसे बदलता हूं, तो यह नया मेल संदेश विंडो पर कार्य फलक नहीं खुलता है। यह केवल मौजूदा कार्य फलक विंडो को टॉगल करता है जो इनबॉक्स में उपलब्ध है।

नया मेल संदेश रिबन नियंत्रण के लिए कोड:

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

मैं ऐसा कैसे कर सकता हूं?