एक्सेल से सीधे एकाधिक ईमेल भेजें: दो सरल तरीके

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

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

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

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

1. वर्ड में मेल मर्ज के साथ एक्सेल स्प्रेडशीट से एकाधिक ईमेल भेजें

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

चरण:

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

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

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

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

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

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

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

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

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

समान पठन

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

2. स्प्रेडशीट से एकाधिक ईमेल भेजने के लिए एक्सेल VBA लागू करें

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

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

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

चरण:

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

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

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 दबाएं।
• नतीजतन, आउटलुक विंडो दिखाई देगी और आप को फ़ील्ड में सभी प्राप्तकर्ताओं को देखेंगे।
• अंत में, भेजें दबाएं।

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

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

चरण:

• सबसे पहले डेवलपर टैब पर क्लिक करें।
• फिर, विजुअल बेसिक चुनें।
• उसके बाद, 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 सेल मान के आधार पर ईमेल

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

चरण:

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

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

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