आउटलुक में एक/एकाधिक ईमेल में सभी अनुलग्नकों को कैसे प्रिंट करें?
जैसा कि आप जानते हैं, जब आप क्लिक करेंगे तो यह केवल हेडर, बॉडी जैसी ईमेल सामग्री को प्रिंट करेगा पट्टिका > छाप माइक्रोसॉफ्ट आउटलुक में, लेकिन अनुलग्नकों को प्रिंट नहीं करें। यहां हम आपको दिखाएंगे कि माइक्रोसॉफ्ट आउटलुक में किसी चयनित ईमेल में सभी अटैचमेंट को आसानी से कैसे प्रिंट किया जाए।
- सभी अनुलग्नकों को एक-एक करके एक ईमेल संदेश में प्रिंट करें
- सभी अनुलग्नकों को एक ईमेल संदेश में बैच प्रिंट करें
- एकाधिक चयनित ईमेल में सभी अनुलग्नकों और चित्रों को बैच प्रिंट करें
- मुख्य भाग में चित्रों को छोड़कर सभी अनुलग्नकों को एकाधिक चयनित ईमेल में बैच प्रिंट करें
सभी अनुलग्नकों को एक-एक करके एक ईमेल संदेश में प्रिंट करें
माइक्रोसॉफ्ट आउटलुक हमें प्रदान करता है त्वरित प्रिंट सुविधा, जो आपको ईमेल संदेश में अनुलग्नकों को एक-एक करके प्रिंट करने में मदद कर सकती है।
1. वह ईमेल संदेश चुनें जिसके अनुलग्नक आप बाद में प्रिंट करेंगे।
2. इस ईमेल में एक अनुलग्नक पर क्लिक करें.
3। दबाएं त्वरित प्रिंट में बटन क्रियाएँ पर समूह किए गए अनुलग्नकों के टैब.
ध्यान दें अनुलग्नक उपकरण जब तक आप ईमेल में अनुलग्नकों पर क्लिक नहीं करेंगे तब तक सक्रिय नहीं किया जाएगा।
4. एक ओपनिंग मेल अटैचमेंट संवाद सामने आता है, और कृपया क्लिक करें प्रारंभिक बटन.
कृपया ध्यान दें कि यह चरण चयनित अनुलग्नक को खोलेगा, और उसी समय इस चयनित अनुलग्नक को प्रिंट करेगा।
इस ईमेल में अन्य अनुलग्नकों को मुद्रित करने के लिए, कृपया चरण 2 से चरण 4 तक दोहराएँ।
आउटलुक में एकाधिक ईमेल से सभी अनुलग्नकों को तुरंत सहेजें/निर्यात करें
आम तौर पर हम इसे सक्रिय करके एक ईमेल से अनुलग्नक सहेज सकते हैं अनुलग्नक उपकरण और लागू करना सभी अनुलग्नक सहेजें आउटलुक में सुविधा. लेकिन, यदि एकाधिक ईमेल से, या संपूर्ण मेल फ़ोल्डर से अनुलग्नकों को आउटलुक में सहेजा जाए तो क्या होगा? आउटलुक के लिए कुटूल आज़माएं शमादान जिसमें मोमबत्ती आखिर तक जल सके (संलग्नक) सुविधा.
सभी अनुलग्नकों को एक ईमेल संदेश में बैच प्रिंट करें
यदि एक ईमेल संदेश में कई अनुलग्नक हैं, तो उन्हें एक-एक करके प्रिंट करने में समय लगेगा। और निम्नलिखित विधि आपको चयनित ईमेल संदेश में सभी अनुलग्नकों को आसानी से बैच प्रिंट करने में मदद करेगी।
1. वह ईमेल संदेश चुनें जिसके अनुलग्नक आप बाद में प्रिंट करेंगे।
2. आउटलुक 2010 या बाद के संस्करणों में, कृपया क्लिक करें पट्टिका > छाप > प्रिंट विकल्प. निम्नलिखित स्क्रीनशॉट देखें:
3. प्रिंट संवाद बॉक्स में, कृपया जाँचें संलग्न फ़ाइलें प्रिंट करें. अनुलग्नक केवल डिफ़ॉल्ट प्रिंटर पर ही प्रिंट होंगे में विकल्प प्रिंट विकल्प अनुभाग।
4। दबाएं छाप बटन.
5. पॉपिंग आउट ओपनिंग मेल अटैचमेंट डायलॉग बॉक्स में, कृपया क्लिक करें प्रारंभिक आगे बढ़ने के लिए बटन. (नोट: यह डायलॉग बॉक्स प्रत्येक अनुलग्नक के लिए अलग से पॉप आउट होगा।)
अब इस चयनित ईमेल संदेश के सभी अनुलग्नक एक ही बार में मुद्रित हो जायेंगे।
एकाधिक चयनित ईमेल में सभी अनुलग्नकों और चित्रों को बैच प्रिंट करें
एकाधिक ईमेल में सभी अनुलग्नकों के साथ-साथ आउटलुक में संदेश के मुख्य भाग में सभी चित्रों को प्रिंट करने के लिए, कृपया वीबीए कोड लागू करने के लिए नीचे दिए गए चरणों का पालन करें।
1. कृपया मेलिंग सूची में रखें कंट्रोल or पाली एकाधिक ईमेल का चयन करने के लिए कुंजियाँ जिनके अनुलग्नक आप प्रिंट करेंगे।
2। दबाएँ ऑल्ट + F11 एप्लिकेशन विंडो के लिए Microsoft Visual Basic खोलने के लिए कुंजियाँ एक साथ।
3. एप्लिकेशन विंडो के लिए Microsoft Visual Basic में, क्लिक करें टूल्स > संदर्भ. और फिर जांचें माइक्रोसॉफ्ट स्क्रिप्टिंग रनटाइम विकल्प जैसा कि नीचे दिखाया गया है। एक बार समाप्त होने पर, क्लिक करें OK.
4। क्लिक करें सम्मिलित करें > मॉड्यूल, और फिर नई मॉड्यूल विंडो में नीचे VBA कोड पेस्ट करें।
वीबीए: सभी अनुलग्नकों को एकाधिक आउटलुक ईमेल में प्रिंट करें
Sub PrintAllAttachmentsInMultipleMails()
'Update by ExtendOffice 2022/08/03
Dim xShellApp As Object
Dim xFSO As Scripting.FileSystemObject
Dim xItem As Object
Dim xTempFldPath, xFilePath As String
Dim xSelItems As Outlook.Selection
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xFile As File
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
xFSO.CreateFolder (xTempFldPath)
End If
Set xSelItems = Outlook.ActiveExplorer.Selection
Set xShellApp = CreateObject("Shell.Application")
For Each xItem In xSelItems
If xItem.Class = OlObjectClass.olMail Then
Set xMailItem = xItem
Set xAttachments = xMailItem.Attachments
For Each xAttachment In xAttachments
xFilePath = xTempFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
Next
End If
Next
For Each xFile In xFSO.GetFolder(xTempFldPath).Files
VBA.DoEvents
Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
Next
Set xSelItems = Nothing
Set xShellApp = Nothing
Set xFSO = Nothing
End Sub
5। दबाएँ F5 कुंजी या क्लिक करें रन इस VBA कोड को चलाने के लिए बटन। अब आप देखेंगे कि चयनित ईमेल में सभी अटैचमेंट और मीसेज बॉडी में चित्र प्रिंट हो गए हैं।
नोट:
- प्रत्येक छवि आपके मुद्रण की पुष्टि के लिए एक पॉप-अप संवाद बॉक्स लाएगी। जबकि अन्य प्रकार की फाइलें सीधे प्रिंट की जाएंगी।
- यदि ईमेल हस्ताक्षर में छवियां हैं, तो वे पॉप-अप संवाद बॉक्स भी लाएंगे।
- अगर तुम्हे मिले इस प्रोजेक्ट में मैक्रोज़ अक्षम हैं त्रुटि, कृपया इस ट्यूटोरियल की जाँच करें: आउटलुक में मैक्रोज़ को कैसे सक्षम और अक्षम करें?
मुख्य भाग में चित्रों को छोड़कर सभी अनुलग्नकों को एकाधिक चयनित ईमेल में बैच प्रिंट करें
केवल एकाधिक ईमेल में अनुलग्नक प्रिंट करने के लिए, लेकिन आउटलुक में संदेश के मुख्य भाग में चित्र प्रिंट करने के लिए, कृपया वीबीए कोड लागू करने के लिए नीचे दिए गए चरणों का पालन करें।
1. कृपया मेलिंग सूची में रखें कंट्रोल or पाली एकाधिक ईमेल का चयन करने के लिए कुंजियाँ जिनके अनुलग्नक आप प्रिंट करेंगे।
2। दबाएँ ऑल्ट + F11 एप्लिकेशन विंडो के लिए Microsoft Visual Basic खोलने के लिए कुंजियाँ एक साथ।
3. एप्लिकेशन विंडो के लिए Microsoft Visual Basic में, क्लिक करें टूल्स > संदर्भ. और फिर जांचें माइक्रोसॉफ्ट स्क्रिप्टिंग रनटाइम विकल्प जैसा कि नीचे दिखाया गया है। एक बार समाप्त होने पर, क्लिक करें OK.
4। क्लिक करें सम्मिलित करें > मॉड्यूल, और फिर नई मॉड्यूल विंडो में नीचे VBA कोड पेस्ट करें।
वीबीए: सभी अनुलग्नकों को एकाधिक आउटलुक ईमेल में प्रिंट करें
Sub PrintAllAttachmentsInMultipleMails()
'Update by ExtendOffice 2022/08/05
Dim xShellApp As Object
Dim xFSO As Scripting.FileSystemObject
Dim xItem As Object
Dim xTempFldPath, xFilePath As String
Dim xSelItems As Outlook.Selection
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xFile As File
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
xFSO.CreateFolder (xTempFldPath)
End If
Set xSelItems = Outlook.ActiveExplorer.Selection
Set xShellApp = CreateObject("Shell.Application")
For Each xItem In xSelItems
If xItem.Class = OlObjectClass.olMail Then
Set xMailItem = xItem
Set xAttachments = xMailItem.Attachments
For Each xAttachment In xAttachments
If IsEmbeddedAttachment(xAttachment) = False Then
xFilePath = xTempFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
Debug.Print xFilePath
End If
Next
End If
Next
For Each xFile In xFSO.GetFolder(xTempFldPath).Files
VBA.DoEvents
Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
Next
Set xSelItems = Nothing
Set xShellApp = Nothing
Set xFSO = Nothing
End Sub
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
xHtml = xItem.HTMLBody
xID = "cid:" & xCid
If InStr(xHtml, xID) > 0 Then
IsEmbeddedAttachment = True
End If
End If
End Function
5। दबाएँ F5 कुंजी या क्लिक करें रन इस VBA कोड को चलाने के लिए बटन। अब आप देखेंगे कि चयनित ईमेल में सभी अटैचमेंट प्रिंट हो गए हैं।
नोट:
- प्रत्येक संलग्न छवि आपके मुद्रण की पुष्टि के लिए एक पॉप-अप संवाद बॉक्स लाएगी। जबकि अन्य प्रकार की फाइलें सीधे प्रिंट की जाएंगी।
- संदेश के मुख्य भाग में छवियाँ मुद्रित नहीं की जाएंगी।
- अगर तुम्हे मिले इस प्रोजेक्ट में मैक्रोज़ अक्षम हैं त्रुटि, कृपया इस ट्यूटोरियल की जाँच करें: आउटलुक में मैक्रोज़ को कैसे सक्षम और अक्षम करें?
डेमो: आउटलुक ईमेल में एक या सभी अनुलग्नक प्रिंट करें
टिप: इस वीडियो में, कुटूल टैब द्वारा जोड़ा गया है आउटलुक के लिए कुटूल. यदि आपको इसकी आवश्यकता है, तो कृपया क्लिक करें यहाँ उत्पन्न करें बिना किसी सीमा के 60-दिन का निःशुल्क परीक्षण प्राप्त करने के लिए!
सर्वोत्तम कार्यालय उत्पादकता उपकरण
आउटलुक के लिए कुटूल - आपके आउटलुक को सुपरचार्ज करने के लिए 100 से अधिक शक्तिशाली सुविधाएँ
🤖 एआई मेल सहायक: एआई जादू के साथ त्वरित प्रो ईमेल - प्रतिभाशाली उत्तरों के लिए एक-क्लिक, सही टोन, बहुभाषी महारत। ईमेलिंग को सहजता से रूपांतरित करें! ...
📧 ईमेल स्वचालन: कार्यालय से बाहर (POP और IMAP के लिए उपलब्ध) / ईमेल भेजने का शेड्यूल करें / ईमेल भेजते समय नियमों के अनुसार ऑटो सीसी/बीसीसी / स्वतः अग्रेषित (उन्नत नियम) / स्वतः ग्रीटिंग जोड़ें / बहु-प्राप्तकर्ता ईमेल को स्वचालित रूप से अलग-अलग संदेशों में विभाजित करें ...
📨 ईमेल प्रबंधन: आसानी से ईमेल याद रखें / विषयों और अन्य लोगों द्वारा घोटाले वाले ईमेल को ब्लॉक करें / डुप्लिकेट ईमेल हटाएँ / उन्नत खोज / फ़ोल्डरों को समेकित करें ...
📁 अनुलग्नक प्रो: बैच सहेजें / बैच अलग करना / बैच संपीड़न / ऑटो सहेजें / ऑटो डिटैच / ऑटो कंप्रेस ...
🌟 इंटरफ़ेस जादू: 😊अधिक सुंदर और शानदार इमोजी / टैब्ड व्यू के साथ अपनी आउटलुक उत्पादकता बढ़ाएँ / आउटलुक को बंद करने के बजाय छोटा करें ...
???? एक-क्लिक चमत्कार: आने वाले अनुलग्नकों के साथ सभी को उत्तर दें / फ़िशिंग-रोधी ईमेल / 🕘प्रेषक का समय क्षेत्र दिखाएं ...
👩🏼🤝👩🏻 संपर्क एवं कैलेंडर: बैच चयनित ईमेल से संपर्क जोड़ें / किसी संपर्क समूह को अलग-अलग समूहों में विभाजित करें / जन्मदिन अनुस्मारक हटाएँ ...
के ऊपर 100 सुविधाएँ आपके अन्वेषण की प्रतीक्षा करें! अधिक जानने के लिए यहां क्लिक करें।