आउटलुक में ईमेल आने पर अटैचमेंट को स्वचालित रूप से कैसे प्रिंट करें?
यह ट्यूटोरियल आउटलुक में आने पर कुछ ईमेल के अटैचमेंट को स्वचालित रूप से प्रिंट करने में आपकी सहायता के लिए वीबीए स्क्रिप्ट और आउटलुक नियम को संयोजित करने की एक विधि प्रदर्शित करता है।
कुछ ईमेल आने पर स्वचालित रूप से अनुलग्नक प्रिंट करें
मान लीजिए, आप किसी निश्चित प्रेषक से आने वाले ईमेल के अनुलग्नकों को स्वचालित रूप से प्रिंट करना चाहते हैं। इसे पूरा करने के लिए आप निम्नानुसार कार्य कर सकते हैं.
चरण 1: आउटलुक में एक स्क्रिप्ट बनाएं
सबसे पहले, आपको आउटलुक में एक वीबीए स्क्रिप्ट बनाने की आवश्यकता है।
1. अपना आउटलुक लॉन्च करें, दबाएं ऑल्ट + F11 खोलने के लिए एक साथ कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, पर डबल क्लिक करें Project1 > माइक्रोसॉफ्ट आउटलुक ऑब्जेक्ट्स > यह आउटलुक सत्र को खोलने के लिए यह आउटलुक सत्र (कोड) विंडो, और फिर निम्नलिखित कोड को इस कोड विंडो में कॉपी करें।
वीबीए कोड 1: ईमेल आने पर स्वचालित रूप से अटैचमेंट (सभी प्रकार के अटैचमेंट) प्रिंट करें
Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20230223
Dim xFS As FileSystemObject
Dim xTempFolder As String
Dim xAtt As Attachment
Dim xShell As Object
Dim xFolder As Object, xFolderItem As Object
Dim xFileName As String
On Error GoTo xError
If Item.Attachments.Count = 0 Then Exit Sub
Set xFS = New FileSystemObject
xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
xTempFolder = xTempFolder & "\ATMP" & Format(Item.ReceivedTime, "yyyymmddhhmmss")
If Not xFS.FolderExists(xTempFolder) Then
MkDir (xTempFolder)
End If
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.NameSpace(0)
For Each xAtt In Item.Attachments
If IsEmbeddedAttachment(xAtt) = False Then
xFileName = xTempFolder & "\" & xAtt.FileName
xAtt.SaveAsFile (xFileName)
Set xFolderItem = xFolder.ParseName(xFileName)
xFolderItem.InvokeVerbEx ("print")
End If
Next xAtt
Set xFS = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
Set xShell = Nothing
xError:
If Err <> 0 Then
MsgBox Err.Number & " - " & Err.Description, , "Kutools for Outlook"
Err.Clear
End If
Exit Sub
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नोट: यह कोड ईमेल में प्राप्त सभी प्रकार के अनुलग्नकों को प्रिंट करने का समर्थन करता है। यदि आप केवल निर्दिष्ट प्रकार के अनुलग्नक, जैसे पीडीएफ फाइलें, प्रिंट करना चाहते हैं, तो कृपया निम्नलिखित वीबीए कोड लागू करें।
वीबीए कोड 2: ईमेल आने पर स्वचालित रूप से निर्दिष्ट प्रकार के अनुलग्नक प्रिंट करें
Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20230223
Dim xFS As FileSystemObject
Dim xTempFolder As String
Dim xAtt As Attachment
Dim xShell As Object
Dim xFolder As Object, xFolderItem As Object
Dim xFileType As String, xFileName As String
On Error GoTo xError
If Item.Attachments.Count = 0 Then Exit Sub
Set xFS = New FileSystemObject
xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
xTempFolder = xTempFolder & "\ATMP" & Format(Item.ReceivedTime, "yyyymmddhhmmss")
If Not xFS.FolderExists(xTempFolder) Then
MkDir (xTempFolder)
End If
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.NameSpace(0)
For Each xAtt In Item.Attachments
If IsEmbeddedAttachment(xAtt) = False Then
xFileName = xAtt.FileName
xFileType = LCase$(Right$(xFileName, VBA.Len(xFileName) - VBA.InStrRev(xFileName, ".")))
xFileName = xTempFolder & "\" & xFileName
Select Case xFileType
Case "pdf" 'change "pdf" to the file extension you want to print
xAtt.SaveAsFile (xFileName)
Set xFolderItem = xFolder.ParseName(xFileName)
xFolderItem.InvokeVerbEx ("print")
End Select
End If
Next xAtt
Set xFS = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
Set xShell = Nothing
xError:
If Err <> 0 Then
MsgBox Err.Number & " - " & Err.Description, , "Kutools for Outlook"
Err.Clear
End If
Exit Sub
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
नोट्स:
3. आगे बढ़ें और क्लिक करें टूल्स > संदर्भ। पॉप अप में सन्दर्भ - प्रोजेक्ट1 संवाद बॉक्स में, चेक करें माइक्रोसॉफ्ट स्क्रिप्टिंग रनटाइम बॉक्स, और फिर क्लिक करें OK बटन.
4. कोड सेव करें और दबाएं ऑल्ट + Q बंद करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
नोट: कृपया सुनिश्चित करें कि सभी मैक्रोज़ सक्षम करें आपके आउटलुक में विकल्प सक्षम है। आप नीचे दिखाए गए चरणों का पालन करके इस विकल्प को जांच सकते हैं।
चरण 2: स्क्रिप्ट का उपयोग करने के लिए एक नियम बनाएं
आउटलुक में वीबीए स्क्रिप्ट जोड़ने के बाद, आपको कुछ शर्तों के आधार पर स्क्रिप्ट का उपयोग करने के लिए एक नियम बनाना होगा।
1. होम टैब पर जाएं, क्लिक करें नियम > नियम और अलर्ट प्रबंधित करें.
2। में नियम और चेतावनियाँ संवाद बॉक्स में, क्लिक करें नए नियम नियम बनाने के लिए बटन.
सुझाव: यदि आपने अपने आउटलुक में एकाधिक ईमेल खाते जोड़े हैं, तो कृपया इसमें एक खाता निर्दिष्ट करें इस फ़ोल्डर में परिवर्तन लागू करें ड्रॉप-डाउन सूची जहां आप नियम लागू करना चाहते हैं। अन्यथा, इसे वर्तमान में चयनित ईमेल खाते के इनबॉक्स पर लागू किया जाएगा।
3. प्रथम में नियम जादूगर संवाद बॉक्स में, चयन करें मुझे प्राप्त संदेशों पर नियम लागू करें में चरण 1 बॉक्स पर क्लिक करें, और उसके बाद क्लिक करें अगला
4. दूसरे में नियम जादूगर संवाद बॉक्स, आपको यह करना होगा:
5. तीसरे में नियम जादूगर डायलॉग बॉक्स, आपको निम्नानुसार कॉन्फ़िगर करना होगा।
सुझाव: यदि "एक स्क्रिप्ट चलाएँ"आपका विकल्प गायब है नियम जादूगर, आप इस आलेख में उल्लिखित विधि का पालन करके इसे प्रदर्शित कर सकते हैं: आउटलुक नियम में लापता रन ए स्क्रिप्ट पीपीशन को पुनर्स्थापित करें.
6. फिर दूसरा नियम जादूगर अपवाद के लिए पूछते हुए पॉप अप होता है। यदि आवश्यक हो तो आप अपवादों का चयन कर सकते हैं, अन्यथा, क्लिक करें अगला बिना किसी चयन के बटन。
7. आख़िर में नियम जादूगर, आपको नियम के लिए एक नाम निर्दिष्ट करना होगा और फिर क्लिक करना होगा अंत बटन.
8. फिर यह वापस लौट आता है नियम और चेतावनियाँ संवाद बॉक्स में, आप अपने द्वारा बनाए गए नियम को अंदर सूचीबद्ध देख सकते हैं, क्लिक करें OK संपूर्ण सेटिंग्स समाप्त करने के लिए बटन।
अब से, जब निर्दिष्ट व्यक्ति से एक ईमेल प्राप्त होता है, तो संलग्न फ़ाइलें स्वचालित रूप से मुद्रित हो जाएंगी।
संबंधित लेख
आउटलुक में केवल एक ईमेल या चयनित ईमेल से अटैचमेंट प्रिंट करें
आउटलुक में, आप ईमेल प्रिंट कर सकते हैं, लेकिन क्या आपने आउटलुक में केवल एक ईमेल या चयनित ईमेल से अटैचमेंट प्रिंट किए हैं? यह आलेख इस कार्य को हल करने की युक्तियों का परिचय देता है।
आउटलुक में किसी ईमेल का केवल संदेश हेडर प्रिंट करें
आउटलुक में ईमेल प्रिंट करते समय, यह ईमेल में मैसेज हेडर और मैसेज बॉडी दोनों को प्रिंट करेगा। हालाँकि, कुछ विशेष मामलों में, आपको विषय, प्रेषक, प्राप्तकर्ता आदि के साथ संदेश हेडर को प्रिंट करने की आवश्यकता हो सकती है। यह आलेख ऐसा करने के लिए दो समाधान पेश करेगा।
आउटलुक में एक निर्दिष्ट/कस्टम दिनांक सीमा में एक कैलेंडर प्रिंट करें
आम तौर पर, आउटलुक में माह दृश्य में एक कैलेंडर प्रिंट करते समय, यह स्वचालित रूप से वर्तमान में चयनित तिथि वाले महीने का चयन करेगा। लेकिन, आपको कैलेंडर को एक कस्टम तिथि सीमा के भीतर प्रिंट करने की आवश्यकता हो सकती है, जैसे कि 3 महीने, आधा साल, आदि। यह लेख आपके लिए समाधान प्रस्तुत करेगा।
आउटलुक में चित्र के साथ एक संपर्क प्रिंट करें
आम तौर पर, आउटलुक में संपर्क प्रिंट करते समय किसी संपर्क की तस्वीर प्रिंट नहीं की जाएगी। लेकिन कभी-कभी, किसी संपर्क को उसके चित्र के साथ मुद्रित करना अधिक प्रभावशाली होगा। यह आलेख इसे पूरा करने के लिए कुछ समाधान प्रस्तुत करेगा।
आउटलुक में एक ईमेल का चयन प्रिंट करें
यदि आपको एक ईमेल संदेश प्राप्त होता है और आपको पता चलता है कि पूरे संदेश को प्रिंट करने के बजाय ईमेल सामग्री का चयन प्रिंट करने की आवश्यकता है, तो आप क्या करेंगे? दरअसल, आउटलुक फ़ायरफ़ॉक्स और इंटरनेट एक्सप्लोरर जैसे इंटरनेट ब्राउज़र की मदद से इस ऑपरेशन को हासिल करने में आपकी मदद कर सकता है। यहां मैं उदाहरण के लिए इंटरनेट ब्राउज़र लूंगा। कृपया निम्नलिखित ट्यूटोरियल देखें।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
आउटलुक के लिए कुटूल - आपके आउटलुक को सुपरचार्ज करने के लिए 100 से अधिक शक्तिशाली सुविधाएँ
🤖 एआई मेल सहायक: एआई जादू के साथ त्वरित प्रो ईमेल - प्रतिभाशाली उत्तरों के लिए एक-क्लिक, सही टोन, बहुभाषी महारत। ईमेलिंग को सहजता से रूपांतरित करें! ...
📧 ईमेल स्वचालन: कार्यालय से बाहर (POP और IMAP के लिए उपलब्ध) / ईमेल भेजने का शेड्यूल करें / ईमेल भेजते समय नियमों के अनुसार ऑटो सीसी/बीसीसी / स्वतः अग्रेषित (उन्नत नियम) / स्वतः ग्रीटिंग जोड़ें / बहु-प्राप्तकर्ता ईमेल को स्वचालित रूप से अलग-अलग संदेशों में विभाजित करें ...
📨 ईमेल प्रबंधन: आसानी से ईमेल याद रखें / विषयों और अन्य लोगों द्वारा घोटाले वाले ईमेल को ब्लॉक करें / डुप्लिकेट ईमेल हटाएँ / उन्नत खोज / फ़ोल्डरों को समेकित करें ...
📁 अनुलग्नक प्रो: बैच सहेजें / बैच अलग करना / बैच संपीड़न / ऑटो सहेजें / ऑटो डिटैच / ऑटो कंप्रेस ...
🌟 इंटरफ़ेस जादू: 😊अधिक सुंदर और शानदार इमोजी / टैब्ड व्यू के साथ अपनी आउटलुक उत्पादकता बढ़ाएँ / आउटलुक को बंद करने के बजाय छोटा करें ...
???? एक-क्लिक चमत्कार: आने वाले अनुलग्नकों के साथ सभी को उत्तर दें / फ़िशिंग-रोधी ईमेल / 🕘प्रेषक का समय क्षेत्र दिखाएं ...
👩🏼🤝👩🏻 संपर्क एवं कैलेंडर: बैच चयनित ईमेल से संपर्क जोड़ें / किसी संपर्क समूह को अलग-अलग समूहों में विभाजित करें / जन्मदिन अनुस्मारक हटाएँ ...
के ऊपर 100 सुविधाएँ आपके अन्वेषण की प्रतीक्षा करें! अधिक जानने के लिए यहां क्लिक करें।
