आउटलुक में केवल एक ईमेल या चयनित ईमेल से अटैचमेंट कैसे प्रिंट करें?
आउटलुक में, आप ईमेल प्रिंट कर सकते हैं, लेकिन क्या आपने आउटलुक में केवल एक ईमेल या चयनित ईमेल से अटैचमेंट प्रिंट किए हैं? इस लेख में, मैं इस कार्य को हल करने की तरकीबें प्रस्तुत करता हूँ।
त्वरित प्रिंट के साथ केवल एक ईमेल से अनुलग्नक प्रिंट करें
VBA के साथ चयनित ईमेल से केवल अनुलग्नक प्रिंट करें
त्वरित प्रिंट के साथ केवल एक ईमेल से अनुलग्नक प्रिंट करें
केवल ईमेल बॉडी के बिना अटैचमेंट प्रिंट करने के लिए, आप क्विक प्रिंट फ़ंक्शन का उपयोग कर सकते हैं।
1. संदेश विंडो में, जिस अनुलग्नक को आप प्रिंट करना चाहते हैं उस पर राइट क्लिक करें, चुनें त्वरित प्रिंट संदर्भ मेनू से
2। तब दबायें सहेजें > सहेजें अनुलग्नक फ़ाइल को किसी स्थान पर सहेजने के लिए.
3. अब उस स्थान पर जाएं जहां आपने अटैचमेंट फ़ाइल रखी थी, और हमेशा की तरह प्रिंट करने के लिए फ़ाइल खोलें।
VBA के साथ चयनित ईमेल से केवल अनुलग्नक प्रिंट करें
यदि आप चयनित ईमेल से अनुलग्नक प्रिंट करना चाहते हैं, तो आप वीबीए कोड का उपयोग कर सकते हैं।
1. उन ईमेल का चयन करें जिनके अनुलग्नक आप प्रिंट करना चाहते हैं, दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। डबल क्लिक करें यह आउटलुक सत्र से Project1 फलक, नीचे दिए गए कोड को स्क्रिप्ट में कॉपी और पेस्ट करें।
वीबीए: चयनित ईमेल से अनुलग्नक प्रिंट करें
Sub BatchPrintAllAttachmentsInMultipleEmails()
'UpdatebyExtendoffice20180417
Dim xFSO As Scripting.FileSystemObject
Dim xTmpFldPath As String
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xShell As Object
Dim xTempFolder As Object
Dim xTempFolderItem As Object
Dim xFilePath As String
On Error Resume Next
Set xFSO = CreateObject("Scripting.FileSystemObject")
xTmpFldPath = xFSO.GetSpecialFolder(2).Path & "\Temp for Attachments"
If xFSO.FolderExists(xTmpFldPath) = False Then
xFSO.CreateFolder xTmpFldPath
End If
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xShell = CreateObject("Shell.Application")
Set xTempFolder = xShell.NameSpace(0)
For Each xItem In xSelection
If xItem.Class = olMail Then
Set xMailItem = xItem
If xMailItem.Attachments.Count = 0 Then Exit Sub
Set xAttachments = xMailItem.Attachments
For Each xAttachment In xAttachments
xFilePath = xTmpFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
Set xTempFolderItem = xTempFolder.ParseName(xFilePath)
xTempFolderItem.InvokeVerbEx ("print")
Next
End If
Next
'If xFSO.FolderExists(xTmpFldPath) Then
' xFSO.DeleteFolder xTmpFldPath, True
'End If
End Sub
3। तब दबायें टूल्स > संदर्भ, और इसमें संदर्भ संवाद, जांचें माइक्रोसॉफ्ट स्क्रिप्टिंग रनटाइम चेकबॉक्स.
4। क्लिक करें OK, फिर दबायें F5 चयनित ईमेल में सभी अनुलग्नकों को थोक में मुद्रित करने की कुंजी।
नोट: यदि अनुलग्नक चित्र है, तो यह पॉप आउट हो जाएगा चित्र मुद्रित करें संवाद पहले, क्लिक करें छाप पर जाने के लिए प्रिंट आउटपुट के रूप में सहेजें संवाद।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
आउटलुक के लिए कुटूल - आपके आउटलुक को सुपरचार्ज करने के लिए 100 से अधिक शक्तिशाली सुविधाएँ
🤖 एआई मेल सहायक: एआई जादू के साथ त्वरित प्रो ईमेल - प्रतिभाशाली उत्तरों के लिए एक-क्लिक, सही टोन, बहुभाषी महारत। ईमेलिंग को सहजता से रूपांतरित करें! ...
📧 ईमेल स्वचालन: कार्यालय से बाहर (POP और IMAP के लिए उपलब्ध) / ईमेल भेजने का शेड्यूल करें / ईमेल भेजते समय नियमों के अनुसार ऑटो सीसी/बीसीसी / स्वतः अग्रेषित (उन्नत नियम) / स्वतः ग्रीटिंग जोड़ें / बहु-प्राप्तकर्ता ईमेल को स्वचालित रूप से अलग-अलग संदेशों में विभाजित करें ...
📨 ईमेल प्रबंधन: आसानी से ईमेल याद रखें / विषयों और अन्य लोगों द्वारा घोटाले वाले ईमेल को ब्लॉक करें / डुप्लिकेट ईमेल हटाएँ / उन्नत खोज / फ़ोल्डरों को समेकित करें ...
📁 अनुलग्नक प्रो: बैच सहेजें / बैच अलग करना / बैच संपीड़न / ऑटो सहेजें / ऑटो डिटैच / ऑटो कंप्रेस ...
🌟 इंटरफ़ेस जादू: 😊अधिक सुंदर और शानदार इमोजी / टैब्ड व्यू के साथ अपनी आउटलुक उत्पादकता बढ़ाएँ / आउटलुक को बंद करने के बजाय छोटा करें ...
???? एक-क्लिक चमत्कार: आने वाले अनुलग्नकों के साथ सभी को उत्तर दें / फ़िशिंग-रोधी ईमेल / 🕘प्रेषक का समय क्षेत्र दिखाएं ...
👩🏼🤝👩🏻 संपर्क एवं कैलेंडर: बैच चयनित ईमेल से संपर्क जोड़ें / किसी संपर्क समूह को अलग-अलग समूहों में विभाजित करें / जन्मदिन अनुस्मारक हटाएँ ...
के ऊपर 100 सुविधाएँ आपके अन्वेषण की प्रतीक्षा करें! अधिक जानने के लिए यहां क्लिक करें।