2008-09-23 14 views
5

क्या कोई तरीका है कि जब आप VBA के साथ किसी ईमेल पर राइट-क्लिक करते हैं तो मैं संदर्भ मेनू से प्रिंट आइटम को हटा सकता हूं?Outlook 2007 से राइट क्लिक प्रिंट प्रिंट मेनू हटाएं

मैं हमेशा ईमेल के जवाब देने के लिए राइट-क्लिक कर रहा हूं, केवल Print पर गलती से क्लिक करने के लिए और Outlook को इसे प्रिंटर पर सीधे भेज दें जितना मैं इसे रोक सकता हूं।

alt text

एनबी: मैं आउटलुक 2007 का उपयोग कर रहा

उत्तर

8

लिंक 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 
+0

दुर्भाग्य से, यह, अब और Outlook 2013 में काम नहीं करता, हालांकि मैं प्रतिस्थापित 'और Print' साथ' और त्वरित Print' (जो Outlook 2013 में संदर्भ मेनू प्रविष्टि का नाम है)। – fero

+0

@fero क्या आपका मतलब है कि यह आपके द्वारा 'और त्वरित प्रिंट' में बदलने के बाद काम करता है? यदि नहीं, तो क्या आपको कभी Outlook 2013 के लिए समाधान मिला? धन्यवाद! – cxw

+0

नहीं, मेरा मतलब था कि उसने _not_ काम नहीं किया हालांकि मैंने इसे 'और त्वरित प्रिंट' में बदल दिया। और नहीं, मुझे इसके लिए कोई समाधान नहीं मिला। (अब आउटलुक 2016 का उपयोग कर) – fero

संबंधित मुद्दे