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

अभ्यास कार्यपुस्तिका डाउनलोड करें

आप यहां से अभ्यास कार्यपुस्तिका डाउनलोड कर सकते हैं।

स्वचालित रूप से ईमेल भेजने के लिए एक्सेल मैक्रो के 3 उपयुक्त उदाहरण

इस पूरे लेख में, हम 3 प्रदर्शित करेंगे प्राप्तकर्ताओं को स्वचालित रूप से ईमेल भेजने के लिए एक्सेल मैक्रो का उपयोग करने के उपयुक्त उदाहरण। उदाहरण को स्पष्ट करना शुरू करने से पहले हमें अपनी एक्सेल शीट में एक चीज़ को ठीक करना होगा। स्वचालित रूप से ईमेल भेजने के लिए मैक्रो लागू करने से पहले नीचे दिए गए चरणों को पूरा करें।

चरण:

• सबसे पहले, अपने डेटासेट से, डेवलपर टैब पर जाएं । विकल्प विजुअल बेसिक चुनें। संदर्भ ।

• ' संदर्भ - VBAProject ' नामक एक नया डायलॉग बॉक्स खुलेगा।<10
• अंत में, ' Microsoft Office 16.0 ऑब्जेक्ट लाइब्रेरी ' विकल्प को चेक करें और ठीक पर क्लिक करें।

1. भेजने के लिए एक्सेल वीबीए मैक्रो लागू करेंईमेल स्वचालित रूप से सेल वैल्यू के आधार पर

सबसे पहले और सबसे महत्वपूर्ण, हम एक्सेल VBA मैक्रो को हमारे डेटासेट में किसी विशेष सेल वैल्यू के आधार पर स्वचालित रूप से ईमेल भेजने के लिए लागू करेंगे। इस उदाहरण को समझाने के लिए हम निम्नलिखित डेटासेट का उपयोग करेंगे। यदि सेल D6 में सेल का मान 400

से अधिक है, तो हम एक कोड लिखेंगे जो स्वचालित रूप से एक ईमेल भेजेगा। आइए इस क्रिया को करने के चरणों को देखें।

चरण:

• शुरुआत करने के लिए, दाएं – क्लिक करें शीट ' सेल पर आधारित ' पर।
• इसके अलावा, ' कोड देखें ' विकल्प चुनें।

<18

• उपरोक्त कार्रवाई उस वर्कशीट के लिए एक खाली VBA कोड विंडो खोलेगी। उस कोड विंडो को खोलने का दूसरा तरीका Alt + F11 दबाना है।
• इसके अलावा, उस कोड विंडो में निम्न कोड टाइप करें:

1629

• फिर, रन बटन पर क्लिक करें या कोड रन करने के लिए F5 कुंजी दबाएं।

• मैक्रोज़ नामक एक नया डायलॉग बॉक्स दिखाई देगा।
• उसके बाद, मैक्रो नाम फ़ील्ड में मैक्रो ' send_mail_outlook<2 चुनें>'.
• अब रन बटन पर क्लिक करें।

• अंत में, अब से जब सेल सेल D6 > 400 आउटलुक में एक ईमेल विशिष्ट प्राप्तकर्ताओं के साथ स्वचालित रूप से उत्पन्न होगा। हमें ईमेल भेजने के लिए सेंड बटन पर क्लिक करना होगा।

पढ़ेंअधिक: सेल सामग्री के आधार पर एक्सेल से स्वचालित रूप से ईमेल भेजें (2 तरीके)

2. वीबीए मैक्रो

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

इस विधि को करने के लिए नीचे दिए गए चरणों का पालन करें।

स्टेप्स:

• सबसे पहले, शीट तारीख पर राइट-क्लिक करें।
• अगला, ' कोड देखें विकल्प चुनें '। उस कोड विंडो को प्राप्त करने के लिए हम Alt + F11 भी दबा सकते हैं।
• फिर, उस कोड विंडो में निम्न कोड डालें:

2161

" aMailBody = "" aMailBody = aMailBody & "Hello" & zRgSendVal & CrLf aMailBody = aMailBody & "Message:" & aRgText.Offset(j - 1).Value & CrLf aMailBody = aMailBody और amp; "" सेट aMailItem = aOutApp.CreateItem(0) aMailItem के साथ .Subject = aMailSubject .To = zRgSendVal .HTMLBody = aMailBody .Display End with Set aMailItem = कुछ भी नहीं अंत अगर अगला सेट aOutApp = कुछ भी अंत नहीं

• अब, कोड रन करने के लिए रन बटन या F5 कुंजी का उपयोग करें।

• एक नयाडायलॉग बॉक्स पॉप अप होगा।
• बाद में, उस डायलॉग बॉक्स के इनपुट फील्ड में ड्यू डेट कॉलम रेंज D$5:$D$9 चुनें। फिर, ओके पर क्लिक करें।

• एक और डायलॉग बॉक्स पॉप अप होगा।
• इसके अलावा, में इनपुट फ़ील्ड कॉलम श्रेणी B$5:$B$9 चुनें जिसमें ईमेल पते हों और ठीक पर क्लिक करें।

• इसके अलावा, एक और विंडो पॉप अप होगी। पॉप विंडो के इनपुट क्षेत्र में संदेश श्रेणी $C$5:$C$9 चुनें।

• अंत में , हम निम्न छवि की तरह परिणाम देख सकते हैं। हमें 3 ऐसे ईमेल मिलते हैं जो 3 आउटलुक की अलग-अलग विंडो में अपने आप बन जाते हैं। यह पहले दो ईमेल पतों के लिए मेल नहीं बनाएगा। क्‍योंकि उन दोनों प्रोजेक्‍ट की नियत तारीख खत्‍म हो चुकी है। दिनांक

समान रीडिंग

• [हल]: साझा वर्कबुक एक्सेल में नहीं दिख रही है (आसान चरणों के साथ) <10
• एक्सेल सूची से ईमेल कैसे भेजें (2 प्रभावी तरीके)
• ईमेल द्वारा संपादन योग्य एक्सेल स्प्रेडशीट कैसे भेजें (3 त्वरित तरीके) <10
• एक्सेल से ईमेल भेजने के लिए मैक्रो (5 उपयुक्त उदाहरण)
• एक्सेल से बॉडी के साथ ईमेल भेजने के लिए मैक्रो (3 उपयोगी मामले)

3. अनुलग्नकों के साथ स्वचालित रूप से ईमेल भेजने के लिए एक्सेल मैक्रो का उपयोग करें

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

• फ़ाइल ' Attachment.xlsx ' 'चुनें।
• विकल्प ' कॉपी पाथ<2 पर क्लिक करें>'। E:\Exceldemy\Attachment.xlsx

  हम इस फ़ाइल को ईमेल द्वारा भेजने के लिए अपने मैक्रो कोड में इस पथ को सम्मिलित करेंगे। ऐसा करने के लिए नीचे दिए गए चरणों का पालन करें।

  STEPS:

  • सबसे पहले, डेवलपर टैब पर जाएं और विकल्प <1 चुनें>विज़ुअल बेसिक ।

  

  • ' प्रोजेक्ट - VBAProject खुलेगा ' नाम की एक नई विंडो।
  • दूसरा, शीट के नाम पर राइट-क्लिक करें।
  • फिर, इन्सर्ट > मॉड्यूल चुनें।

  

  • उपरोक्त आदेश एक खाली VBA
  • खोलेगा, तीसरा, उस मॉड्यूल में निम्न कोड टाइप करें:

  6801

  • फिर, कोड रन करने के लिए F5 की दबाएं या रन बटन पर क्लिक करें।

  <3

  • अंत में, कोड कोड में दिए गए ईमेल में अटैचमेंट भेजेगा। कोड आउटलुक द्वारा ईमेल भेजता है। इसलिए, दिए गए ईमेल में आउटलुक अनुलग्नक भेजने के लिए अनुमति दें बटन पर क्लिक करें।

  

  और पढ़ें: आवेदन कैसे करेंअटैचमेंट के साथ एक्सेल से ईमेल भेजने के लिए मैक्रो

  निष्कर्ष

  निष्कर्ष में, यह लेख 3 एक्सेल का उपयोग करने के उदाहरण VBA मैक्रो को दिखाता है मेल स्वचालित रूप से भेजें। अपने कौशल का परीक्षण करने के लिए इस आलेख में दिए गए नमूना वर्कशीट को डाउनलोड करें। यदि आपके कोई प्रश्न हैं, तो कृपया नीचे दिए गए बॉक्स में एक टिप्पणी छोड़ दें। हमारी टीम आपके संदेश का जल्द से जल्द जवाब देने की कोशिश करेगी। अधिक आविष्कारशील Microsoft Excel भविष्य के समाधानों पर नज़र रखें।