आउटलुक। पसंदीदा समूह में फ़ोल्डर जोड़ें

Question

अब मैं Outlook के पसंदीदा समूह में चयनित फ़ोल्डर जोड़ने के लिए Outlook मैक्रोज़ पर काम कर रहा हूं। मैं इस विधि

Sub AddToFavorites() 
    Dim olapp As Outlook.Application 
    Dim objFolder As Outlook.MAPIFolder 
    Set olapp = New Outlook.Application 
    Set objFolder = olapp.ActiveExplorer.CurrentFolder 
    objFolder.AddToPFFavorites 
End Sub 

लेकिन AddToPFFavorites विधि त्रुटि फेंकता का उपयोग करने की कोशिश की है "प्रयास की गई कार्रवाई में विफल रहा है। एक वस्तु नहीं पाया जा सका।"

मैंने संदर्भ मेनू से "पसंदीदा में दिखाएं" क्रिया का उपयोग करके पसंदीदा फ़ोल्डर को जोड़ने का प्रयास किया है, क्योंकि परिणामी फ़ोल्डर त्रुटियों के बिना पसंदीदा समूह में दिखाया गया है।

मेरा प्रश्न है: पसंदीदा समूह में फ़ोल्डर कैसे जोड़ें? "पसंदीदा में दिखाएं" कार्रवाई के लिए वीबीए समकक्ष क्या है?

Answer 1

NavigationPane मेल मॉड्यूल तक पहुंचकर आप Outlook पसंदीदा समूह प्रबंधित कर सकते हैं।

Outlook.MailModule mailModule = ThisAddIn.Application.ActiveExplorer().NavigationPane.Modules.GetNavigationModule(Outlook.OlNavigationModuleType.olModuleMail) as Outlook.MailModule; 
Outlook.NavigationGroup favGroup = mailModule.NavigationGroups.GetDefaultNavigationGroup(Outlook.OlGroupType.olFavoriteFoldersGroup); 
favGroup.NavigationFolders.Add(objFolder);