आउटलुक: छवियों के बिना ईमेल कैसे प्रिंट करें

लेखक: रवि अंतिम संशोधित: 2022-04-29

आम तौर पर आउटलुक में एक ईमेल प्रिंट करने पर छवियां भी प्रिंट हो जाएंगी। लेकिन कभी-कभी, आप केवल छवियों के बिना टेक्स्ट प्रिंट करना चाहते हैं, हालांकि, आउटलुक में, कोई अंतर्निहित सुविधा नहीं है जो इस काम का समर्थन कर सके। यह ट्यूटोरियल एक वीबीए कोड प्रदान करता है जो वर्ड के माध्यम से छवि-मुक्त ईमेल को तुरंत प्रिंट करेगा। या जब आपके कंप्यूटर में प्रिंटर नहीं है, तो VBA कोड पहले ईमेल को बिना छवियों के पीडीएफ के रूप में निर्यात करेगा, और फिर प्रिंटर उपलब्ध होने के बाद आप पीडीएफ को प्रिंट कर सकते हैं।

छवियों के बिना ईमेल मुद्रित करने के लिए वीबीए

ऑफिस टैब - माइक्रोसॉफ्ट ऑफिस में टैब्ड एडिटिंग और ब्राउजिंग सक्षम करें, जिससे काम आसान हो जाएगा

अधिक पढ़ें...डाउनलोड...

आउटलुक के लिए कुटूल - बेहतर दक्षता के लिए 100+ उन्नत सुविधाओं के साथ आउटलुक को बढ़ावा दें

के साथ ईमेल स्वचालित करें ऑटो सीसी/बीसीसी, ऑटो फ़ॉरवर्ड नियमों के अनुसार; भेजना स्व उत्तर (कार्यालय से बाहर) एक्सचेंज सर्वर की आवश्यकता के बिना...
जैसे अनुस्मारक प्राप्त करें बीसीसी चेतावनी जब आप बीसीसी सूची में हों तब सभी को उत्तर देते समय, और अनुलग्नक गुम होने पर याद दिलाएँ भूले हुए अनुलग्नकों के लिए...
के साथ ईमेल दक्षता में सुधार करें उत्तर (सभी) संलग्नक के साथ, हस्ताक्षर या विषय में स्वतः अभिवादन या दिनांक और समय जोड़ें, एकाधिक ईमेल का उत्तर दें...
के साथ ईमेलिंग को सुव्यवस्थित करें ईमेल याद करें, अनुलग्नक उपकरण (सभी को संपीड़ित करें, स्वचालित रूप से सभी को सहेजें...), डुप्लिकेट निकालें, तथा त्वरित रिपोर्ट...

इन उन्नत सुविधाओं के साथ अपने आउटलुक 2021 - 2010 या आउटलुक 365 को बूस्ट करें। व्यापक 60-दिवसीय निःशुल्क परीक्षण का आनंद लें और अपने ईमेल अनुभव को उन्नत करें!

अधिक पढ़ें...डाउनलोड...

छवियों के बिना ईमेल मुद्रित करने के लिए वीबीए

1. एक ईमेल चुनें जिसका टेक्स्ट आप केवल प्रिंट करना चाहते हैं, फिर दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल एक नया रिक्त मॉड्यूल बनाने के लिए, फिर नीचे दिए गए कोड को कॉपी करें और मॉड्यूल में पेस्ट करें।

वीबीए: छवियों के बिना ईमेल निर्यात करें

Sub PrintWithoutImages()
'UpdatebyExtendoffice20220414
  Dim xMail As Outlook.MailItem
  Dim xFileName As String, xSubject As String
  Dim xWord As Word.Application
  Dim xWordDoc As Word.Document
  Dim xInlineShape As Word.InlineShape
  Dim InvalidArr
  On Error Resume Next
  If Application.ActiveWindow.Class = olInspector Then
    Set xMail = ActiveInspector.CurrentItem
  ElseIf Application.ActiveWindow.Class = olExplorer Then
    Set xMail = ActiveExplorer.Selection.Item(1)
  End If
  
  InvalidArr = Array("/", "\", "*", ":", Chr(34), "?", "<", ">", "|")
  xSubject = xMail.Subject
  For i = 0 To UBound(InvalidArr)
    xSubject = VBA.Replace(xSubject, InvalidArr(i), "")
  Next i
  
  xFileName = Environ("Temp") & "\" & xSubject & ".doc"
Debug.Print xFileName
  xMail.SaveAs xFileName, olDoc
  Set xWord = CreateObject("Word.Application")
  xWord.Visible = False
  Set xWordDoc = xWord.Documents.Open(xFileName)
  For Each xInlineShape In xWordDoc.InlineShapes
      xInlineShape.Delete
  Next
  xWordDoc.PrintOut
  xWordDoc.Close
  xWord.Quit
  Kill xFileName
End Sub