🚵🏾 🔩 😶 VBA और PHP का उपयोग करके Microsoft Outlook 2010 में बड़ी फ़ाइलों को भेजना 🎿 ⏲️ 👩🏿‍🤝‍👨🏻

मैं Microsoft Outlook 2010 में बड़ी फ़ाइलों को भेजने की समस्या को हल करने का एक तरीका साझा करना चाहता हूं (मुझे लगता है कि 2013 से यह भी काम करेगा)।
तो, प्रारंभिक शर्तें:
- एमएस एक्सचेंज सर्वर 2010 - इनडोर - कोई एक्सेस व्यवस्थापक नहीं है - लेखक सिर्फ एक उपयोगकर्ता है
- पत्रों की कुल मात्रा पर सीमाएं 10 एमबी
- आपके DMZ में कुछ लिनक्स वेब सर्वर हैं और कॉरपोरेट इंट्रानेट तक प्रशासन की पहुँच है
यह आवश्यक है:
- बड़ी फ़ाइलों को स्थानांतरित करने के लिए एक सुविधाजनक तंत्र व्यवस्थित करें (बहुत बड़ी)
- जानकारी संग्रहीत करने के लिए तीसरे पक्ष के प्रदाताओं का उपयोग न करें

पहला विचार ड्रॉपबॉक्स जैसी सेवाओं का उपयोग करना था, या बल्कि, अपने स्वयं के होस्ट किए गए समकक्षों जैसे खुदक्लाउड। हालाँकि, यह सब सिर्फ संलग्नक के लिए तैनात करना अपर्याप्त था।

इसके अलावा, आउटलुक के अंदर कैसे संलग्न करें यह अभी भी स्पष्ट नहीं है। यहां प्लगइन्स वाला विकल्प अधिक उपयुक्त है, जैसे कि यह क्या प्रदान करता है, उदाहरण के लिए, YouSendIt और अन्य समान सेवाएं। यह इस तरह दिखता है: आउटलुक में, एक बटन दिखाई देता है जिस पर क्लिक करने पर सेवा विंडो पॉप अप हो जाती है और हमारी बड़ी अटैचमेंट फ़ाइल अपलोड हो जाती है, जब डाउनलोड पूरा हो जाता है, तो इसके लिए एक लिंक उत्पन्न होता है और संदेश के शरीर में डाला जाता है। चूंकि हम इस प्रकार की सेवाओं का उपयोग नहीं कर सकते हैं, और उनके प्लगइन्स के अनुसार, हम उनका एनालॉग करेंगे।

चरण 1. सेवा ऑनलाइन फ़ाइल साझाकरण
यह काफी सरल है, क्योंकि ओपन सोर्स लाइसेंस के साथ इस तरह की परियोजनाएं हैं। मैंने PLUpload को चुना, और इसे हमारे DMZ में लिनक्स सर्वरों में से एक पर स्थापित किया। स्क्रिप्ट को थोड़ा संशोधित किया गया, अर्थात्:
- एक पासवर्ड का अनुरोध किया जाता है या एक कॉर्पोरेट इंट्रानेट के माध्यम से एक सत्र (एसएसओ प्रमाणीकरण के समर्थन के साथ) सत्यापित किया जाता है, लगभग यहां बताया गया है
- सफल फ़ाइल अपलोड होने पर, इसे डाउनलोड करने के लिए उत्पन्न URL अदृश्य txtList तत्व में जोड़ा जाता है (यह आवश्यक क्यों होगा यह अगले चरण से स्पष्ट होगा)
- मैंने डिस्क लिंक को बचाने के लिए - पुराने लिंक हटाने के लिए क्रोन को भी जोड़ा

आकार प्रतिबंध PHP और वेब सर्वर की सेटिंग्स पर निर्भर करते हैं, मैंने प्रति फ़ाइल 2 जीबी की सीमा निर्धारित की है (मैं एक समय में 10 फ़ाइलों तक संलग्न कर सकता हूं)।

मंच 2. ग्राहक का हिस्सा
आदर्श रूप से, यह एक आउटलुक प्लग-इन होना चाहिए, लेकिन जहां तक मैं समझता हूं कि प्लग-इन बनाना इतना आसान नहीं है, और अब तक मैं इस पर समय नहीं बिताऊंगा ...
इसके बजाय, मैंने एक नियमित वीबीए परियोजना बनाई और इसे आउटलुक में टूलबार पर बिखेर दिया।

इस परियोजना में एक फार्म शामिल है जिस पर रखा गया है:
- शीर्षक संलग्न के साथ मानक बटन
- मानक नियंत्रण WebBrowser (वास्तव में IE फ्रेम)

ऐसा दिखता है

इसके बाद विजुअल बेसिक में इस सभी के लिए कोड है, मैं पहले से माफी मांगता हूं अगर ऐसा लगता है कि कोई व्यक्ति आईएल faut नहीं है, तो मैं काफी प्रोग्रामर नहीं हूं (वीबी प्रोग्रामर नहीं - यह सुनिश्चित करने के लिए है)

VBA प्रोजेक्ट कोड

Private Sub CommandButton1_Click() If WebBrowser1.Document.all("txtList").Value = "" Then MsgBox "No files have been uploaded" + vbNewLine + "Please make sure you click on 'Start upload' and upload is 100% completed" Else On Error GoTo MessageACT Set objMail = Outlook.Application.ActiveInspector.CurrentItem If objMail.BodyFormat = olFormatHTML Then ' objMail.HTMLBody = objMail.HTMLBody + "<hr>Attached" + Attachment1 incMess = "" Attachment1 = WebBrowser1.Document.all("txtList").Value Expires1 = WebBrowser1.Document.all("txtDate").Value preText = "<font size=1>------------------------------------</font><br><b>Large Attachments</b><br>" + vbNewLine posttext = vbNewLine + "<br><font size=1>Attachments added via filesharingserverindmz.cool <br> powered by owners </font><br>-------------------" filesAtt = Split(Attachment1, "|") For Each itm In filesAtt If itm <> "" Then ATTmsg = ATTmsg + "<a href='https://filesharingserverindmz.cool/get/" + itm + "'>https://filesharingserverindmz.cool/get/" + itm + "</a><br>" + vbNewLine End If Next itm incMess = preText + ATTmsg + vbNewLine + "<br>the attachments will be valid for <b>" + Expires1 + "</b> days from now" + vbNewLine + posttext objMail.HTMLBody = vbNewLine + incMess + objMail.HTMLBody Else incMess = "" Attachment1 = WebBrowser1.Document.all("txtList").Value Expires1 = WebBrowser1.Document.all("txtDate").Value preText = "------------------------------------" + vbNewLine + " Large Attachments " + vbNewLine posttext = vbNewLine + " Attachments added via filesharingserverindmz.cool " + vbNewLine + "powered by owners " + vbNewLine + "------------------------------------" filesAtt = Split(Attachment1, "|") For Each itm In filesAtt If itm <> "" Then ATTmsg = ATTmsg + "https://filesharingserverindmz.cool/get/" + itm + vbNewLine End If Next itm incMess = preText + ATTmsg + vbNewLine + "the attachments will be valid for " + Expires1 + " days from now" + vbNewLine + posttext objMail.Body = vbNewLine + incMess + objMail.Body End If Unload Me End If Exit Sub MessageACT: MsgBox "This button only works when composing email messages" End Sub Private Sub CommandButton2_Click() incMess = "" Attachment1 = WebBrowser1.Document.all("txtList").Value Expires1 = WebBrowser1.Document.all("txtDate").Value preText = "------------------------------------<br><b>Large Attachments</b><br>" + vbNewLine posttext = vbNewLine + "<br><font size=1>Attachments added via filesharingserverindmz.cool <br> powered by UNICEF Geneva ITSSD </font><br>------------------------------------" filesAtt = Split(Attachment1, "|") For Each itm In filesAtt If itm <> "" Then ATTmsg = ATTmsg + "<a href='https://filesharingserverindmz.cool/get/" + itm + "'>https://filesharingserverindmz.cool/get/" + itm + "</a><br>" + vbNewLine End If Next itm incMess = preText + ATTmsg + vbNewLine + "<br>the attachments will be valid for <b>" + Expires1 + "</b> days from now" + vbNewLine + posttext LargeAttachments.WebBrowser1.Document.Body.innerHTML = "<body><font style='font-size:11px'>" + incMess + "</font></body>" LargeAttachments.Show End Sub Private Sub CommandButton3_Click() WebCode1.Visible = True CommandButton2.Visible = True CommandButton1.Visible = False WebBrowser1.Visible = False WebCode1.Navigate2 "https://filesharingserverindmz.cool/uploader/upload/plugin/upload.php" incMess = "" Attachment1 = WebBrowser1.Document.all("txtList").Value Expires1 = WebBrowser1.Document.all("txtDate").Value preText = "------------------------------------<br><b>Large Attachments</b><br>" + vbNewLine posttext = vbNewLine + "<br><font size=1>Attachments added via filesharingserverindmz.cool <br> powered by UNICEF Geneva ITSSD </font><br>------------------------------------" filesAtt = Split(Attachment1, "|") For Each itm In filesAtt If itm <> "" Then ATTmsg = ATTmsg + "<a href='https://filesharingserverindmz.cool/get/" + itm + "'>https://filesharingserverindmz.cool/get/" + itm + "</a><br>" + vbNewLine End If Next itm incMess = preText + ATTmsg + vbNewLine + "<br>the attachments will be valid for <b>" + Expires1 + "</b> days from now" + vbNewLine + posttext WebCode1.Document.Body.innerHTML = "<html><body><font style='font-size:11px'>" + incMess + "</font></body></html>" WebCode1.SetFocus End Sub Private Sub UserForm_Activate() LargeAttachments.WebBrowser1.Navigate2 "about:blank" WebBrowser1.Navigate2 "https://filesharingserverindmz.cool/uploader/upload/plugin/upload.php" End Sub

उपरोक्त कोड में
- filesharingserverindmz.cool - वह डोमेन जिस पर PHP स्क्रिप्ट PLUpload-a होस्ट की जाती है
- कमांडबटन 1 - बटन संलग्न करें
- WebBrowser1 - WebBrowser को नियंत्रित करें
- लार्जअटैचमेंट्स - फॉर्म का नाम

अगला, एक मॉड्यूल बनाएं, और इसे इसमें पेस्ट करें:

 Sub Attachment() LargeAttachments.Show End Sub

इसके बाद, इस मैक्रो को एक बटन के रूप में टूलबार से कनेक्ट करें (ध्यान! टूलबार जो एक पत्र बनाते समय प्रकट होता है, और सामान्य एक के लिए नहीं)
यह कुछ इस तरह से निकलता है:

यह उपयोग करने के लिए काफी सुविधाजनक है, यहां एक उदाहरण वीडियो है:

और फिर भी, यह एक तैयार समाधान नहीं है और कार्यान्वयन के लिए इसे महत्वपूर्ण रूप से समाप्त करना आवश्यक है। लेख का उद्देश्य विचार को स्वयं दिखाना था और इसे एक कार्यान्वयन उदाहरण के साथ स्पष्ट करना था।

VBA और PHP का उपयोग करके Microsoft Outlook 2010 में बड़ी फ़ाइलों को भेजना

More articles: