जब आपको लोगों के एक बड़े समूह को एक सामूहिक ईमेल भेजने की आवश्यकता होती है, तो आपको एक स्वचालित प्रक्रिया की आवश्यकता होगी जो दोहराए जाने वाले कार्यों को जल्दी से संभाल सके। एक एक्सेल . बनाना ईमेल की सूची वाली फ़ाइल सामूहिक ईमेल भेजने का सबसे आम तरीका है। तो, इस ट्यूटोरियल में, हम आपको दिखाएंगे कि Excel . से ईमेल कैसे भेजें बड़ी संख्या में लोगों को स्वचालित रूप से सूचीबद्ध करें।
एक्सेल सूची से ईमेल भेजने के 2 आसान तरीके
हमने नीचे दी गई छवि में कुछ लोगों के नाम, साथ ही उनके ईमेल और पंजीकरण संख्या के साथ एक डेटा सेट शामिल किया है। एक्सेल . से सूची, हमें प्रत्येक व्यक्ति को ईमेल भेजना होगा। इसे पूरा करने के लिए, हम Microsoft Word के मेल मर्ज का उपयोग करेंगे फ़ंक्शन , उसके बाद VBA मौजूदा सूची से पसंदीदा व्यक्तियों को ईमेल भेजने के लिए कोड।
<एच3>1. एक्सेल सूची से एकाधिक ईमेल भेजने के लिए मेल मर्ज फ़ंक्शन लागू करें
⇒ चरण 1:एक नई वर्ड फ़ाइल खोलें
- खाली शब्द खोलें दस्तावेज़।
- मेलिंग पर क्लिक करें टैब।
- प्राप्तकर्ताओं का चयन करें . से विकल्प चुनें, मौजूदा सूची का उपयोग करें . चुनें विकल्प।
⇒ चरण 2:एक्सेल लिस्ट को वर्ड फाइल से लिंक करें
- एक्सेल का चयन करें फ़ाइल जहाँ आपने सूची बनाई है और खोलें . पर क्लिक करें फ़ाइल खोलने के लिए।
- उस शीट नंबर का चयन करें जहां आपने सूची लिखी है।
- फिर, ठीक क्लिक करें ।
⇒ चरण 3:फ़ील्ड सम्मिलित करें
- मेलिंग . से विकल्प, मर्ज फ़ील्ड सम्मिलित करें . पर क्लिक करें उन फ़ील्ड को दर्ज करने का विकल्प जिन्हें आप सम्मिलित करना चाहते हैं।
- सबसे पहले, नाम डालें फ़ील्ड पर क्लिक करके और सामान्य मेल की पसंदीदा स्थिति में।
- जैसा कि चित्र नीचे दिखाया गया है, नाम . जोड़ने के बाद फ़ील्ड, यह प्रत्येक व्यक्ति के नाम के चर के रूप में दिखाई देगा।
- इसी तरह, Reg . रखें टेक्स्ट संदेश में जहां चाहें फ़ील्ड करें।
- इसलिए, यह नीचे दिखाए गए चित्र के रूप में दिखाई देगा।
⇒ चरण 4:पूर्वावलोकन परिणाम देखें
- परिणामों का पूर्वावलोकन पर क्लिक करें ईमेल भेजने से पहले अंतिम पूर्वावलोकन देखने के लिए।
- नीचे दिया गया स्क्रीनशॉट दिखाता है कि एक नमूना ईमेल कैसा दिखेगा।
⇒ चरण 5:ईमेल मर्ज करें
- ईमेल मर्ज करने के लिए, समाप्त और मर्ज करें . पर क्लिक करें विकल्प।
- ई-मेल में मर्ज करें खोलने के लिए बॉक्स में, ईमेल संदेश भेजें . चुनें विकल्प।
- प्रति बॉक्स में, ईमेल चुनें विकल्प।
- अपनी पसंद की विषय पंक्ति विषय पंक्ति में लिखें बॉक्स।
- मेल प्रारूप HTML होगा डिफ़ॉल्ट रूप से, इसलिए आपको इसे बदलने की आवश्यकता नहीं है।
- रिकॉर्ड भेजें विकल्प में, सभी . पर क्लिक करें ।
- आखिरकार, ठीक . पर क्लिक करें एक ही समय में कई प्राप्तकर्ताओं को ईमेल भेजने के लिए।
- परिणामस्वरूप, सभी ईमेल आपके संबद्ध आउटलुक . के माध्यम से भेजे जाएंगे अपना दृष्टिकोण Check जांचें यह पुष्टि करने के लिए भेजा गया विकल्प है कि ईमेल भेज दिए गए हैं।
- जब आप कोई भेजा गया ईमेल खोलते हैं, तो आप देखेंगे कि प्रत्येक फ़ील्ड एक विशिष्ट व्यक्ति की जानकारी से भरी हुई है।
नोट्स। माइक्रोसॉफ्ट आउटलुक आपका डिफ़ॉल्ट मेलिंग एप्लिकेशन होना चाहिए। यदि आप किसी अन्य मेलिंग एप्लिकेशन का उपयोग करते हैं, तो आप इस प्रक्रिया द्वारा ईमेल नहीं भेज पाएंगे।
और पढ़ें: Excel में शर्त पूरी होने पर स्वचालित रूप से ईमेल कैसे भेजें
समान रीडिंग
- ईमेल द्वारा संपादन योग्य एक्सेल स्प्रेडशीट कैसे भेजें (3 त्वरित तरीके)
- [समाधान]:शेयर वर्कबुक एक्सेल में नहीं दिख रहा है (आसान चरणों के साथ)
- VBA का उपयोग करके किसी Excel कार्यपत्रक से स्वचालित रूप से अनुस्मारक ईमेल भेजें
- कैसे देखें कि साझा एक्सेल फ़ाइल में कौन है (त्वरित चरणों के साथ)
- Excel में शेयर वर्कबुक कैसे सक्षम करें
VBA . के आशीर्वाद से , आप किसी Excel . से ईमेल भेजने के लिए एक प्रोग्राम बना सकते हैं श्रेणी के बेहतर चयन के साथ सूची। कार्य करने के लिए नीचे दिए गए चरणों का पालन करें।
⇒ चरण 1:एक मॉड्यूल बनाएं
- VBA मैक्रो खोलने के लिए , Alt . दबाएं + F11 ।
- सम्मिलित करें पर क्लिक करें टैब।
- मॉड्यूल चुनें मॉड्यूल . बनाने का विकल्प ।
⇒ चरण 2:वीबीए कोड पेस्ट करें
- नए मॉड्यूल . में , निम्न VBA कोड चिपकाएं: ।
#If VBA7 And Win64 Then
'Ptr is used to change for operating 32 bit to 64 bit
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal wnd As LongPtr, ByVal lpDirect As String, _
ByVal Parameters As String, ByVal File As String, ByVal Operation As String, _
ByVal nCmd As Long) As LongPtr
#Else
#End If
Sub SendExcelListEMail()
'Declare the variables
Dim xMailAdd As String
Dim xRegCode As String
Dim xBody As String
Dim xURLink As String
Dim xRngCell As Range
Dim xIntRg As Range
Dim xSelectTxt As String
Dim k As Integer
Dim p As Double
On Error Resume Next
'Select range select adddress
xSelectTxt = ActiveWindow.RangeSelection.Address
'Create a Input box for the range selection
Set xIntRg = Application.InputBox("Please Input Excel data range:", "ExcelDemy", xSelectTxt, , , , , 8)
'Apply If condition to specify column numbers for the operation
If xIntRg Is Nothing Then Exit Sub
If xIntRg.Columns.Count <> 3 Then
'Show the result in a msg box for not meeting the condition
MsgBox "Error with Region Selection, please confirm", , "ExcelDemy"
Exit Sub
End If
'Apply For loop to run operation in each row individually
For k = 1 To xIntRg.Rows.Count
' Collect the email address and set to the variable
xMailAdd = xIntRg.Cells(k, 2)
' Give a subject for the Email
xRegCode = "ExcelDemy Registration No."
' Type the body of the email
xBody = ""
' Insert Names with the variable xIntRg
xBody = xBody & "Greetings " & xIntRg.Cells(k, 1) & "," & vbCrLf & vbCrLf
xBody = xBody & " Here is your ExcelDemy Registration No. "
' Insert Registration No. with the variable xIntRg
xBody = xBody & xIntRg.Cells(k, 3).Text & "." & vbCrLf & vbCrLf
xBody = xBody & "We are really glad to have you visit in our site, keep supporting us." & vbCrLf
xBody = xBody & "ExcelDemy Team"
' Define spaces with (hex)
xRegCode = Application.WorksheetFunction.Substitute(xRegCode, " ", "%20")
xBody = Application.WorksheetFunction.Substitute(xBody, " ", "%20")
' Specify to replace carriage returns with(hex)
xBody = Application.WorksheetFunction.Substitute(xBody, vbCrLf, "%0D%0A")
' Generate the URL Link
xURLink = "mailto:" & xMailAdd & "?subject=" & xRegCode & "&body=" & xBody
' Use the Link to start emailing
ShellExecute 0&, vbNullString, xURLink, vbNullString, vbNullString, vbNormalFocus
' three seconds interval for sending keystrokes
Application.Wait (Now + TimeValue("0:00:03"))
Application.SendKeys "%s"
Next
End Sub
⇒ चरण 3:प्रोग्राम चलाएँ
- प्रेस F5 कार्यक्रम चलाने के लिए।
- चुनें इनपुट बॉक्स में रेंज।
- क्लिक करें ठीक ईमेल भेजने के लिए।
- परिणामस्वरूप, ईमेल भेजने के पूर्वावलोकन दिखाई देंगे, जैसा कि नीचे दी गई छवि में दिखाया गया है।
- आखिरकार, आप पुष्टि के लिए भेजे गए ईमेल की जांच कर सकते हैं।
और पढ़ें: ईमेल कैसे भेजें यदि एक्सेल में शर्तें पूरी होती हैं (3 आसान तरीके)
निष्कर्ष
मुझे उम्मीद है कि इस लेख ने आपको Excel . से बड़े पैमाने पर ईमेल भेजने के तरीके के बारे में एक ट्यूटोरियल दिया है सूची। इन सभी प्रक्रियाओं को सीखा जाना चाहिए और आपके डेटासेट पर लागू किया जाना चाहिए। अभ्यास कार्यपुस्तिका पर एक नज़र डालें और इन कौशलों का परीक्षण करें। हम आपके बहुमूल्य समर्थन के कारण इस तरह के ट्यूटोरियल बनाते रहने के लिए प्रेरित हैं।
यदि आपके कोई प्रश्न हैं तो कृपया हमसे से संपर्क करें। साथ ही, बेझिझक नीचे दिए गए अनुभाग में टिप्पणी करें।
हम, महामहिम टीम, आपके प्रश्नों का हमेशा जवाब देती है।
हमारे साथ रहें और सीखते रहें।
संबंधित लेख
- Excel से Outlook को स्वचालित ईमेल कैसे भेजें (4 तरीके)
- मैक्रो का उपयोग करके शरीर के साथ एक्सेल से ईमेल कैसे भेजें (आसान चरणों के साथ)
- एक्सेल मैक्रो:सेल में किसी पते पर ईमेल भेजें (2 आसान तरीके)
- तारीख के आधार पर एक्सेल से स्वचालित रूप से ईमेल कैसे भेजें
- एक्सेल स्प्रेडशीट से एकाधिक ईमेल कैसे भेजें (2 आसान तरीके)
- मैक्रो एक्सेल से बॉडी के साथ ईमेल भेजने के लिए (3 उपयोगी मामले)