यह ट्यूटोरियल आपको दिखाएगा कि वीबीए का उपयोग करके जीमेल के माध्यम से एक्सेल से ईमेल कैसे भेजें।
माइक्रोसॉफ्ट सीडीओ संदर्भ जोड़ना
एक्सेल को जीमेल के जरिए ईमेल भेजने की अनुमति देने के लिए आपको सबसे पहले अपने एक्सेल प्रोजेक्ट में सीडीओ रेफरेंस लाइब्रेरी को जोड़ना होगा।
वीबीए संपादक में, टूल्स, संदर्भ पर क्लिक करें।
Microsoft CDO संदर्भ खोजें, और ठीक क्लिक करें।
जीमेल के माध्यम से एक ईमेल भेजना
जीमेल के माध्यम से एक्सेल से एक ईमेल भेजने के लिए आपको सबसे पहले एक सीडीओ ऑब्जेक्ट घोषित करना होगा (सीडीओ के रूप में मंद जीमेल। संदेश).
दूसरे, आपको अपने कोड में अपने संदेश के लिए एसएसएल प्रमाणीकरण को कॉन्फ़िगर करने की आवश्यकता होगी। इसका मतलब है कि आपको एसएमटीपी सर्वर और पोर्ट विवरण सेट करने की आवश्यकता है ताकि आपका ईमेल सही ढंग से चले, साथ ही साथ अपना उपयोगकर्ता नाम और पासवर्ड भी सेट करें।
नीचे दिए गए कोड स्निपेट में, आपको अपने एक्सेल फ़ंक्शन की शुरुआत में इसकी आवश्यकता होगी। आपको एक ईमेल प्राप्तकर्ता (strTo), और एक विषय (strSubject) की आवश्यकता है, लेकिन CC और ईमेल का मुख्य भाग वैकल्पिक चर हो सकता है।
| 12345678910111213141516171819202122232425262728 | फ़ंक्शन CreateEmail (स्ट्रिंग के रूप में strTo, स्ट्रिंग के रूप में strSubject, स्ट्रिंग के रूप में वैकल्पिक strCC, स्ट्रिंग के रूप में वैकल्पिक strBody)'एक सीडीओ ऑब्जेक्ट बनाएं'सीडीओ के रूप में मंद जीमेल। संदेशजीमेल सेट करें = नया सीडीओ। संदेश'एसएसएल प्रमाणीकरण सक्षम करें'जीमेल.कॉन्फ़िगरेशन.फ़ील्ड्स.आइटम _("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = सही'एसएमटीपी प्रमाणीकरण सक्षम करें = सत्य (1)जीमेल.कॉन्फ़िगरेशन.फ़ील्ड्स.आइटम _("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1'एसएमटीपी सर्वर और पोर्ट विवरण सेट करें'जीमेल.कॉन्फ़िगरेशन.फ़ील्ड्स.आइटम _("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"gMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25gMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2'अपने स्वयं के जीमेल खाते के लिए अपना उपयोगकर्ता नाम और पासवर्ड यहां सेट करेंजीमेल.कॉन्फ़िगरेशन.फ़ील्ड्स.आइटम _("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"जीमेल.कॉन्फ़िगरेशन.फ़ील्ड्स.आइटम _("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "**********"'कॉन्फ़िगरेशन फ़ील्ड अपडेट करें'जीमेल.कॉन्फ़िगरेशन.फ़ील्ड्स.अपडेट |
एक बार ऐसा करने के बाद, आप अपना ईमेल बना सकते हैं और फ़ंक्शन को पूरा कर सकते हैं।
| 123456789 | 'ईमेल गुण और फ़ाइल भेजने के लिए सेट करें'जीमेल के साथ। विषय = "यहां विषय लिखें".From = "[email protected]".टू = स्ट्रेटोटेक्स्टबॉडी = स्ट्रबॉडीके साथ समाप्त करना'मेल भेजने के लिए'जीमेल.भेजेंअंत समारोह |
फिर आप अपने फ़ंक्शन को निम्न कोड से कॉल कर सकते हैं
| 1234567 | उप भेजेंईमेल'ईमेल का मुख्य भाग बनाएं'स्ट्रिंग के रूप में मंद strTextstrText = "सुप्रभात। आशा है कि आप ठीक हैं - यह एक परीक्षण ईमेल है"'फ़ंक्शन के तर्कों को पॉप्युलेट करें - सीसी को खाली छोड़ दें इसलिए प्लेसहोल्डर के रूप में अल्पविराम लगाएं'CreateEmail("[email protected]", "Test Email", , strText)अंत उप |
GMail के माध्यम से कार्यपुस्तिका भेजना
किसी कार्यपुस्तिका को GMail के माध्यम से अनुलग्नक के रूप में भेजने के लिए, आप कुछ अतिरिक्त के साथ ऊपर वाले की तरह एक फ़ंक्शन बना सकते हैं।
कार्यपुस्तिका का चयन करने के लिए आपको कोड जोड़ने की आवश्यकता है, और फिर आपको चयनित फ़ाइल को ईमेल में संलग्न करने की आवश्यकता है।
हम माइक्रोसॉफ्ट ऑफिस का उपयोग करेंगे फ़ाइल संवाद भेजने के लिए फ़ाइल का चयन करने के लिए आदेश, और फिर का उपयोग करें संलग्न करें फ़ाइल को अटैचमेंट के रूप में जोड़ने के लिए ईमेल की संपत्ति।
| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364 | फ़ंक्शन SendWorkbook (स्ट्रिंग के रूप में strTo, स्ट्रिंग के रूप में strSubject, स्ट्रिंग के रूप में वैकल्पिक strCC, स्ट्रिंग के रूप में वैकल्पिक strBody) बूलियन के रूप मेंत्रुटि गोटो एह पर:'एक सीडीओ ऑब्जेक्ट बनाएं'सीडीओ के रूप में मंद जीमेल। संदेशजीमेल सेट करें = नया सीडीओ। संदेश'एसएसएल प्रमाणीकरण सक्षम करें'जीमेल.कॉन्फ़िगरेशन.फ़ील्ड्स.आइटम _("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = सही'एसएमटीपी प्रमाणीकरण सक्षम करें = सत्य (1)जीमेल.कॉन्फ़िगरेशन.फ़ील्ड्स.आइटम _("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1'एसएमटीपी सर्वर और पोर्ट विवरण सेट करें'जीमेल.कॉन्फ़िगरेशन.फ़ील्ड्स.आइटम _("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"जीमेल.कॉन्फ़िगरेशन.फ़ील्ड्स.आइटम _("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25जीमेल.कॉन्फ़िगरेशन.फ़ील्ड्स.आइटम _("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2'यहां अपने जीमेल खाते के लिए अपना उपयोगकर्ता नाम और पासवर्ड सेट करेंजीमेल.कॉन्फ़िगरेशन.फ़ील्ड्स.आइटम _("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"जीमेल.कॉन्फ़िगरेशन.फ़ील्ड्स.आइटम _("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "**********"'कॉन्फ़िगरेशन फ़ील्ड अपडेट करें'जीमेल.कॉन्फ़िगरेशन.फ़ील्ड्स.अपडेट'Microsoft फ़ाइल संवाद बॉक्स के साथ भेजने के लिए फ़ाइल का चयन करें'स्ट्रिंग के रूप में मंद strFileToSendFileDialog के रूप में मंद dlgFileडिम स्ट्रेटम वैरिएंट के रूप मेंमंद nDlgपरिणाम लंबे समय तकdlgFile = Application.FileDialog (msoFileDialogFilePicker) सेट करें'केवल एक्सेल और सीएसवी फाइलों के लिए फिल्टर'dlgFile.Filters. "Excel Files", "*.csv; *.xls; *.xlsx; *.xlsm" जोड़ेंnDlgResult = dlgFile.Showअगर nDlgResult = -1 तोअगर dlgFile.SelectedItems.Count > 0 तोप्रत्येक strItem के लिए dlgFile.SelectedItems . मेंstrFileToSend = strItemअगला strItemअगर अंतअगर अंत'ईमेल गुण और फ़ाइल भेजने के लिए सेट करें'जीमेल के साथ.विषय = "यहां विषय लिखें".From = "[email protected]".टू = स्ट्रेटोटेक्स्टबॉडी = स्ट्रबॉडी'चयनित फ़ाइल को अनुलग्नक के रूप में जोड़ें.AddAttachment strFileToSendके साथ समाप्त करना'मेल भेजने के लिए'जीमेल.भेजेंSendWorkbook = सचसमारोह से बाहर निकलेंएह:SendWorkbook = गलतअंत समारोह |
यदि कॉन्फ़िगरेशन पोर्ट 25 काम नहीं करता है तो आपको एक त्रुटि मिल सकती है - "परिवहन सर्वर से कनेक्ट करने में विफल" पोर्ट को 25 में बदलें और पुनः प्रयास करें।
उपरोक्त फ़ंक्शन को नीचे दी गई प्रक्रिया का उपयोग करके बुलाया जा सकता है।
| 123456789101112131415 | उप SendMail ()मंद strTo स्ट्रिंग के रूप मेंस्ट्रिंग के रूप में मंद strSubjectस्ट्रिंग के रूप में मंद strBody'चरों को आबाद करें'strTo = "[email protected]"strSubject = "कृपया वित्त फ़ाइल संलग्न करें"strBody = "ईमेल के मुख्य भाग के लिए कुछ पाठ यहाँ जाता है"'ईमेल भेजने के लिए फ़ंक्शन को कॉल करें'अगर SendWorkbook(strTo, strSubject, ,strBody) = true तोMsgbox "ईमेल निर्माण सफल"अन्यथाMsgbox "ईमेल निर्माण विफल!"अगर अंतअंत उप |
आपको उस फ़ाइल का चयन करने के लिए कहा जाएगा जिसे आप भेजना चाहते हैं। फ़िल्टर "*.csv;" होने के कारण यह कोड एक्सेल फ़ाइलों तक सीमित है; *.एक्सएलएस; *.xlsx; *.xlsm" - हालाँकि, आप इस कोड का उपयोग Word के भीतर भी कर सकते हैं, और तदनुसार अपने फ़िल्टर में संशोधन कर सकते हैं।
फ़ाइल का चयन करें, और ओपन पर क्लिक करें। कोड को चलने में कुछ समय लग सकता है - यदि आपका मेल सफलतापूर्वक भेजा जाता है, तो आपको निम्न संदेश प्राप्त होगा।
