एक्सेल से आउटलुक के माध्यम से एक सूची में एकाधिक प्राप्तकर्ताओं को ईमेल कैसे भेजें?
यदि आपके पास वर्कशीट के एक कॉलम में एकाधिक ईमेल पते हैं, और अब, आप आउटलुक खोले बिना सीधे एक्सेल से प्राप्तकर्ताओं की इस सूची में एक ईमेल भेजना चाहते हैं। इस लेख में, मैं एक ही समय में एक्सेल से एकाधिक प्राप्तकर्ताओं को ईमेल कैसे भेजें, इसके बारे में बात करूंगा।
वीबीए कोड के साथ एक्सेल से एकाधिक प्राप्तकर्ताओं को ईमेल भेजें
वीबीए कोड के साथ एक्सेल से एकाधिक प्राप्तकर्ताओं को ईमेल भेजें
आप एक साथ कई प्राप्तकर्ताओं को संदेश भेजने के लिए वीबीए कोड का उपयोग कर सकते हैं, कृपया निम्नानुसार करें:
1. नीचे पकड़ो ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2. क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.
वीबीए कोड: एकाधिक प्राप्तकर्ताओं को ईमेल भेजें
Sub sendmultiple()
'updateby Extendoffice
Dim xOTApp As Object
Dim xMItem As Object
Dim xCell As Range
Dim xRg As Range
Dim xEmailAddr As String
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the addresses list:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOTApp = CreateObject("Outlook.Application")
For Each xCell In xRg
If xCell.Value Like "*@*" Then
If xEmailAddr = "" Then
xEmailAddr = xCell.Value
Else
xEmailAddr = xEmailAddr & ";" & xCell.Value
End If
End If
Next
Set xMItem = xOTApp.CreateItem(0)
With xMItem
.To = xEmailAddr
.Display
End With
End Sub
3. और फिर दबाएं F5 इस कोड को निष्पादित करने के लिए कुंजी, एक प्रॉम्प्ट बॉक्स आपको पता सूची का चयन करने की याद दिलाने के लिए पॉप अप होगा, स्क्रीनशॉट देखें:
4। तब दबायें OK, और एक आउटलुक मैसेज विंडो प्रदर्शित होती है, आप देख सकते हैं कि सभी चयनित ईमेल पते इसमें जोड़ दिए गए हैं सेवा मेरे फ़ील्ड, और फिर आप विषय दर्ज कर सकते हैं और अपना संदेश लिख सकते हैं, स्क्रीनशॉट देखें:
5. मैसेज ख़त्म होने के बाद कृपया क्लिक करें भेजें बटन, और यह संदेश आपकी कार्यपत्रक सूची में इन प्राप्तकर्ताओं को भेजा जाएगा।
VBA कोड का उपयोग करके अनुलग्नक के रूप में वर्तमान कार्यपुस्तिका के साथ एकाधिक प्राप्तकर्ताओं को ईमेल भेजें
यदि आपको अनुलग्नक के रूप में वर्तमान कार्यपुस्तिका के साथ एकाधिक प्राप्तकर्ताओं को एक संदेश भेजने की आवश्यकता है, तो आप निम्नलिखित वीबीए कोड लागू कर सकते हैं।
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.
वीबीए कोड: अनुलग्नक के रूप में वर्तमान कार्यपुस्तिका के साथ एकाधिक प्राप्तकर्ताओं को ईमेल भेजें
Sub EmailAttachmentRecipients()
'updateby Extendoffice
Dim xOutlook As Object
Dim xMailItem As Object
Dim xRg As Range
Dim xCell As Range
Dim xEmailAddr As String
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the arresses list:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOutlook = CreateObject("Outlook.Application")
Set xMailItem = xOutlook.CreateItem(0)
For Each xCell In xRg
If xCell.Value Like "*@*" Then
If xEmailAddr = "" Then
xEmailAddr = xCell.Value
Else
xEmailAddr = xEmailAddr & ";" & xCell.Value
End If
End If
Next
With xMailItem
.To = xEmailAddr
.CC = ""
.Subject = ""
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
Set xOutlook = Nothing
Set xMailItem = Nothing
End Sub
3. कोड पेस्ट करने के बाद प्रेस करें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको उन पतों का चयन करने की याद दिलाने के लिए पॉप आउट होता है जिन पर आप संदेश भेजना चाहते हैं, स्क्रीनशॉट देखें:
4. तब क्लिक करो OK बटन, और एक आउटलुक मैसेज विंडो प्रदर्शित होती है, सभी ईमेल पते इसमें जोड़ दिए गए हैं सेवा मेरे फ़ील्ड, और आपकी वर्तमान कार्यपुस्तिका भी अनुलग्नक के रूप में डाली गई है, और फिर आप विषय दर्ज कर सकते हैं और अपना संदेश लिख सकते हैं, स्क्रीनशॉट देखें:
5। तब दबायें भेजें इस संदेश को अनुलग्नक के रूप में वर्तमान कार्यपुस्तिका के साथ प्राप्तकर्ताओं की सूची में भेजने के लिए बटन।
विभिन्न अनुलग्नकों के साथ एकाधिक प्राप्तकर्ताओं को वैयक्तिकृत ईमेल भेजें:
- एक्सेल के लिए कुटूल's ईमेल भेजिए सुविधा, आप आवश्यकतानुसार एक्सेल से आउटलुक के माध्यम से विभिन्न अनुलग्नकों के साथ कई प्राप्तकर्ताओं को वैयक्तिकृत ईमेल भेज सकते हैं। वहीं, आप किसी खास व्यक्ति के मैसेज को सीसी या बीसीसी भी कर सकते हैं। एक्सेल के लिए कुटूल डाउनलोड करने के लिए क्लिक करें! |
संबंधित लेख:
आउटलुक के माध्यम से एक्सेल से किसी सूची में वैयक्तिकृत सामूहिक ईमेल कैसे भेजें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!