आउटलुक में बैच प्रिंट पीडीएफ अनुलग्नक
यह लेख शॉन त्साई द्वारा लिखा गया था, जो डेटा वेयरहाउसिंग विशेषज्ञ और हाउ-टू गीक के अच्छे दोस्त थे
क्या आप कभी भी अपने Outlook ईमेल बॉक्स में प्राप्त प्रत्येक अनुलग्नक को प्रिंट करना चाहते हैं? मान लीजिए कि आपने पीडीएफ ईमेल सेवा के लिए एक निशुल्क फैक्स की सदस्यता ली है और आप चाहते हैं कि वे पुराने जमाने की फैक्स मशीन की तरह अपने आप प्रिंट आउट हो जाएं.
यहां यह प्राप्त करने का एक त्वरित तरीका है कि यदि आप थोड़ी सी VB (मैक्रो) प्रोग्रामिंग के साथ सहज हैं.
हम यहां जो दिखा रहे हैं वह आउटलुक में एक नियम बनाने और आने वाले फैक्स ईमेल को एक अलग सबफ़ोल्डर में स्थानांतरित करने के लिए है। VB कोड का उपयोग करके हम आपके लिए उस सबफ़ोल्डर में हर ईमेल के खिलाफ एक प्रिंट जॉब चलाने के लिए एक मैक्रो बनाते हैं ताकि आपको ईमेल खोलने और अटैचमेंट को एक-एक करके प्रिंट न करना पड़े.
चरण 1
Outlook में "मेलबॉक्स - YourName" के अंतर्गत "बैच प्रिंट" नाम का एक सबफ़ोल्डर बनाएँ.
चरण 2
आउटलुक में मेनू टूल / रूल्स और अलर्ट्स से एक नियम बनाएं जो इस तरह दिखता है:
अपने फ़ैक्स विक्रेता से ईमेल पते को "[email protected]" फ़ील्ड में रखें। विषय पंक्ति में, हर बार फ़ैक्स विक्रेता से भेजे जाने वाले स्थायी पाठ को रखें (उस पाठ में मत डालें जो बदल दिया जाएगा)। ३तृतीय फ़ील्ड "बैच प्रिंट्स" सबफ़ोल्डर है जिसे आपने पहले चरण में बनाया है.
चरण 3
एक VB मैक्रो बनाएँ। पहले टूल्स / मैक्रो / विजुअल बेसिक एडिटर पर जाकर VB एडिटर को लाएं। आपको वीबी एडिटर को इस तरह दिखना चाहिए:
चरण 4
बाईं ओर प्रोजेक्ट विंडो से, Project1 आइटम पर राइट क्लिक करें और मॉड्यूल 1 नामक मॉड्यूल डालें:
चरण 5
एक बार मॉड्यूल 1 बन जाने के बाद, दाईं ओर की विंडो में नीचे दिए गए कोड को कॉपी करें जैसा कि बुलेट # 3 में दिखाया गया है.
सार्वजनिक उप PrintAttachments () डिम इनबॉक्स MAPIFolder डिम आइटम आइटम के रूप में MailItem डिम Atmt अटैचमेंट डिम फ़ाइलनाम के रूप में स्ट्रिंग डिम i as इंटर्गर सेट इनबॉक्स = GetNamespace ("MAPI)। GetDefaultFolder (olFolderInbox) .Parent.Folders.Item (Bemem) ) इनबॉक्स में प्रत्येक आइटम के लिए। आइटम्स में प्रत्येक एटम के लिए। एटेचमेंट के सभी अटैचमेंट सबसे पहले अस्थायी फ़ोल्डर C: \ Temp में सहेजे जाते हैं। इस फ़ोल्डर को बनाना सुनिश्चित करें। FileName = "C: \ Temp \" & Atmt.FileName Atmt.SaveAsFile FileName 'कृपया प्रोग्राम फोल्डर को तदनुसार बदल दें यदि एक्रोबेट रीडर ड्राइव C: Shell "" C: \ "\ _ \ _ \ _ \ _ \ _ \ _ \ _ \ _ प्रोग्रामर फाइल को \ _" Reader \ acrord32.exe "" / h / p "" + FileName + "" "", vbHide Next Item.Delete 'इस लाइन को हटा दें यदि आप ईमेल को स्वचालित रूप से डिलीट नहीं करना चाहते हैं तो अगला सेट इनबॉक्स = कुछ भी नहीं उप ध्यान दें कि आपको अपने सिस्टम पर पथ से मिलान करने के लिए एक्रोबैट को कॉल करने वाली कोड की लाइन को बदलने की आवश्यकता हो सकती है.
चरण 6
अब सेटअप पूरा हो गया है। आपके फ़ैक्स विक्रेता के सभी ईमेल आपके "बैच प्रिंट्स" में चले जाएंगे, जब वे अंदर आएंगे। कृपया ध्यान दें, उदाहरण के लिए, हम उम्मीद कर रहे हैं कि सभी अटैचमेंट्स पीडीएफ फॉर्मेट में हैं, इसलिए हम हर अनुलग्नक को प्रिंट करने के लिए एक्रोबैट acrord32.exe का उपयोग करते हैं।.
मैक्रो का उपयोग करना
अब, जब आप सभी अटैचमेंट को प्रिंट करना चाहते हैं, तो बस मैक्रो पर जाएं और मैक्रो प्रिंटअटैचमेंट चलाएं और सभी अटैचमेंट को क्रमिक रूप से प्रिंट किया जाएगा। एक बार प्रिंट होने के बाद ईमेल को हटा दिया जाएगा और कचरा बिन में ले जाया जाएगा.
नोट: प्रिंट आपके डिफ़ॉल्ट प्रिंटर पर रूट किए जाते हैं ताकि आपको यह सुनिश्चित करना पड़े कि एक मान्य प्रिंटर ड्राइवर सेटअप और चयनित है.
आशा है कि यह उपयोगी है!
