Excel स्प्रेडशीट से एकाधिक ईमेल कैसे भेजें (2 आसान तरीके)

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

निम्नलिखित कार्यपुस्तिका को स्वयं अभ्यास करने के लिए डाउनलोड करें।

एक्सेल स्प्रेडशीट से एकाधिक ईमेल भेजने के 2 आसान तरीके

उदाहरण के लिए, हम एक उदाहरण के रूप में एक नमूना डेटासेट का उपयोग करेंगे। उदाहरण के लिए, निम्न डेटासेट विक्रेता . का प्रतिनिधित्व करता है और उनका ईमेल पते। यहां, हम उनमें से प्रत्येक को इस एक्सेल स्प्रेडशीट से पते लेकर ईमेल भेजेंगे। ।

हमारी पहली विधि में, हम MS Word . का उपयोग करेंगे और मेल मर्ज सुविधा शब्द . में एकाधिक ईमेल भेजने के लिए एक्सेल स्प्रेडशीट . से . इसलिए, कार्य करने के लिए नीचे दिए गए चरणों का पालन करें।

कदम:

• सबसे पहले, एक खाली शब्द खोलें फ़ाइल।
• फिर, अपना वांछित संदेश टाइप करें।
• उसके बाद, मेलिंग . पर जाएं ➤ प्राप्तकर्ताओं का चयन करें ➤ किसी मौजूदा सूची का उपयोग करें ।

• परिणामस्वरूप, डेटा स्रोत चुनें डायलॉग बॉक्स पॉप आउट होगा।
• बाद में, एक्सेल . चुनें फ़ाइल जहां ईमेल पते संग्रहीत हैं।
• खोलें दबाएं ।

• परिणामस्वरूप, तालिका चुनें डायलॉग बॉक्स दिखाई देगा।
• वहां, अपनी इच्छित शीट चुनें और ठीक press दबाएं ।

• अब, उस शब्द का चयन करें जिसे आपको प्रत्येक मेल के लिए बदलने की आवश्यकता है। इस उदाहरण में, विल्हम . चुनें ।
• अगला, मेलिंग . के अंतर्गत टैब में, विक्रेता . चुनें मर्ज फ़ील्ड सम्मिलित करें . से ड्रॉप-डाउन.

• इस प्रकार, यह संदेश लौटाएगा जैसा कि नीचे दिखाया गया है।

• इसके अलावा, यदि आप प्राप्तकर्ता के दृष्टिकोण से अपने मेल का पूर्वावलोकन देखना चाहते हैं, तो परिणामों का पूर्वावलोकन करें क्लिक करें ।

• समाप्त करें और मर्ज करें . के अंतर्गत ड्रॉप-डाउन, ईमेल संदेश भेजें का चयन करें ।

• तदनुसार, ई-मेल में मर्ज करें डायलॉग बॉक्स सामने आएगा।
• शीर्षलेख चुनें ईमेल में प्रति फ़ील्ड करें और अपनी विषय पंक्ति . लिखें (नमस्कार ) आवश्यकतानुसार।
• अंत में, ठीक दबाएं और यह सभी प्राप्तकर्ताओं को मेल भेज देगा।

और पढ़ें: ईमेल द्वारा संपादन योग्य एक्सेल स्प्रेडशीट कैसे भेजें (3 त्वरित तरीके)

समान रीडिंग

• तारीख के आधार पर एक्सेल से स्वचालित रूप से ईमेल कैसे भेजें
• मैक्रो का उपयोग करके बॉडी के साथ एक्सेल से ईमेल भेजें (आसान चरणों के साथ)
• एक्सेल फ़ाइल को ईमेल पर स्वचालित रूप से कैसे भेजें (3 उपयुक्त तरीके)
• ईमेल कैसे भेजें यदि एक्सेल में शर्तें पूरी होती हैं (3 आसान तरीके)
• सेल सामग्री (2 तरीके) के आधार पर एक्सेल से स्वचालित रूप से ईमेल भेजें

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

2.1 सूची में सामूहिक ईमेल

इस उदाहरण में, आप देखेंगे कि सभी को एक सामान्य संदेश कैसे भेजा जाता है। तो, निम्न चरणों को सीखें।

कदम:

• सबसे पहले, डेवलपर . चुनें ➤ विजुअल बेसिक ।

• परिणामस्वरूप, VBA विंडो पॉप आउट हो जाएगी।
• अब, सम्मिलित करें click क्लिक करें ➤ मॉड्यूल ।
• अगला, निम्नलिखित कोड को कॉपी करें और इसे मॉड्यूल  . में पेस्ट करें खिड़की।

Sub massEmails()
Dim appOutlook As Object
Dim Email As Object
Dim mailbody, mailto As String
Dim i, j As Integer
Set appOutlook = CreateObject("Outlook.Application")
Set Email = appOutlook.CreateItem(olMailItem)
For i = 2 To 5
    mailto = mailto & Cells(i, 2) & ";"
Next i
ThisWorkbook.Save
Email.To = mailto
Email.Subject = "Important Notice"
Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Company Rules." & vbNewLine & "Regards."
Email.Display
End Sub

• फ़ाइल सहेजें और F5 press दबाएं कोड चलाने के लिए।
• परिणामस्वरूप, दृष्टिकोण विंडो दिखाई देगी और आप सभी प्राप्तकर्ताओं को प्रति  . में देखेंगे फ़ील्ड.
• आखिरकार, भेजें दबाएं ।

2.2 एकाधिक अटैचमेंट वाले ईमेल

इसके अतिरिक्त, यदि आपके पास संलग्न करने के लिए एक से अधिक फाइलें हैं और आपको उन्हें एक से अधिक ईमेल पतों पर भेजना है, तो नीचे दी गई प्रक्रिया का पालन करें।

कदम:

• डेवलपर क्लिक करें पहले टैब।
• फिर, विजुअल बेसिक select चुनें ।
• उसके बाद, VBA . में विंडो में, मॉड्यूल . चुनें सम्मिलित करें . के अंतर्गत ।
• मॉड्यूल . में विंडो, नीचे दिए गए कोड को कॉपी और पेस्ट करें।

Sub attachments()
Dim appOutlook As Object
Dim Email As Object
Dim source, mailto As String
Dim i, j As Integer
Set appOutlook = CreateObject("Outlook.Application")
Set Email = appOutlook.CreateItem(olMailItem)
For i = 2 To 5
    mailto = mailto & Cells(i, 2) & ";"
Next i
For j = 2 To 5
    source = "D:\SOFTEKO\how to send multiple emails from excel spreadsheet\" & Cells(j, 3)
    Email.attachments.Add source
Next
ThisWorkbook.Save
source = ThisWorkbook.FullName
Email.attachments.Add source
Email.To = mailto
Email.Subject = "Important Sheets"
Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Sheets." & vbNewLine & "Regards."
Email.Display
End Sub

• इसे सहेजें और F5 . दबाकर कोड चलाएँ ।
• परिणामस्वरूप, दृष्टिकोण विंडो दिखाई देगी और आप वांछित फ़ाइल अटैचमेंट देखेंगे।

2.3 सेल वैल्यू पर आधारित ईमेल

हम एक और उदाहरण दिखाएंगे जहां Excel फ़ाइल स्वचालित रूप से एकाधिक पतों पर एक ईमेल भेजेगी जब एक निश्चित सेल मान हमारी आवश्यकता से अलग होगा। निम्नलिखित डेटासेट में, हमारे पास 50 . है सेल में B5 . हमारा कोड 100 . से कम होने पर ईमेल भेजेगा . अब, कार्य करने के लिए निम्न प्रक्रिया सीखें।

कदम:

• सबसे पहले, शीट का चयन करें और माउस पर राइट-क्लिक करें।
• फिर, कोड देखें select चुनें ।

• पॉप-आउट डायलॉग बॉक्स में, नीचे दिए गए कोड को कॉपी और पेस्ट करें।

Dim rn As Range
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub
  Set rn = Intersect(Range("B5"), Target)
    If rn Is Not hing Then Exit Sub
    If IsNumeric(Target.Value) And Target.Value < 100 Then
        Call Mail_small_Text_Outlook
    End If
End Sub
Sub MailCellvalues()
Dim appOutlook As Object
Dim Email As Object
Dim mailbody, mailto As String
Dim i, j As Integer
Set appOutlook = CreateObject("Outlook.Application")
Set Email = appOutlook.CreateItem(olMailItem)
For i = 2 To 5
    mailto = mailto & Cells(i, 3) & ";"
Next i
ThisWorkbook.Save
Email.To = mailto
Email.Subject = "Important Notice"
Email.Body = "Greetings Everyone," & vbNewLine & "Please raise B5 above 100." & vbNewLine & "Regards."
Email.Display
End Sub

• बाद में, फ़ाइल को सहेजें और F5 . दबाएं इसे चलाने के लिए।
• परिणामस्वरूप, आप आउटपुट को आउटलुक  . में देखेंगे खिड़की।

और पढ़ें:एक्सेल सूची से ईमेल कैसे भेजें (2 प्रभावी तरीके)

निष्कर्ष

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

संबंधित लेख

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