लिंक TcKs प्रदान के आधार पर, यह बहुत आसान था । नीचे दिए गए उदाहरण में मैं आइटम के प्रकार की जांच करता हूं ताकि यह केवल ई-मेल को प्रभावित करे, न कि कैलेंडर आइटम। Outlook में कोड दर्ज करने के लिए, Alt + F11 टाइप करें, फिर प्रोजेक्ट फलक में Microsoft Office Outlook ऑब्जेक्ट का विस्तार करें। फिर TheOutlookSession पर डबल क्लिक करें। फिर इस कोड को कोड विंडो में पेस्ट करें। मैं इस तरह के कैप्शन की जांच करना पसंद नहीं करता क्योंकि आप अंतर्राष्ट्रीयकरण के साथ मुद्दों में भाग ले सकते हैं। लेकिन मुझे कमांड पर एक्शनआईडी या कुछ भी नहीं मिला। एक FaceID था लेकिन यह सिर्फ प्रिंटर आइकन की आईडी है।
Private Sub Application_ItemContextMenuDisplay(ByVal CommandBar As Office.CommandBar, ByVal Selection As Selection)
Dim cmdTemp As Office.CommandBarControl
If Selection.Count > 0 Then
Select Case TypeName(Selection.Item(1))
Case "MailItem"
For Each cmdTemp In CommandBar.Controls
If cmdTemp.Caption = "&Print" Then
cmdTemp.Delete
Exit For
End If
Next cmdTemp
Case Else
'Debug.Print TypeName(Selection.Item(1))
End Select
End If
End Sub
स्रोत
2009-02-24 14:57:31
दुर्भाग्य से, यह, अब और Outlook 2013 में काम नहीं करता, हालांकि मैं प्रतिस्थापित 'और Print' साथ' और त्वरित Print' (जो Outlook 2013 में संदर्भ मेनू प्रविष्टि का नाम है)। – fero
@fero क्या आपका मतलब है कि यह आपके द्वारा 'और त्वरित प्रिंट' में बदलने के बाद काम करता है? यदि नहीं, तो क्या आपको कभी Outlook 2013 के लिए समाधान मिला? धन्यवाद! – cxw
नहीं, मेरा मतलब था कि उसने _not_ काम नहीं किया हालांकि मैंने इसे 'और त्वरित प्रिंट' में बदल दिया। और नहीं, मुझे इसके लिए कोई समाधान नहीं मिला। (अब आउटलुक 2016 का उपयोग कर) – fero