Excel में एकाधिक अनुलग्नकों के साथ ईमेल कैसे भेजें?
यह आलेख एक्सेल में संलग्न कई अनुलग्नकों के साथ आउटलुक के माध्यम से एक ईमेल भेजने के बारे में बात कर रहा है।
वीबीए कोड के साथ एक्सेल में संलग्न कई अनुलग्नकों के साथ ईमेल भेजें
वीबीए कोड के साथ एक्सेल में संलग्न कई अनुलग्नकों के साथ ईमेल भेजें
एक्सेल में संलग्न एकाधिक अनुलग्नकों के साथ एक ईमेल भेजने के लिए कृपया निम्नानुसार कार्य करें।
1. कृपया क्लिक करके एक कमांड बटन डालें डेवलपर > सम्मिलित करें > कमांड बटन (एक्टिवएक्स कंट्रोल). स्क्रीनशॉट देखें:
2. कमांड बटन डालने के बाद कृपया इसे राइट क्लिक करें और चुनें कोड देखें संदर्भ मेनू से
3. उद्घाटन में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया क्लिक करें टूल्स > संदर्भ जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है।
4। में सन्दर्भ - वीबीएप्रोजेक्ट संवाद बॉक्स, कृपया ढूंढें और जांचें माइक्रोसॉफ्ट आउटलुक ऑब्जेक्ट लाइब्रेरी विकल्प, और फिर क्लिक करें OK बटन.
5. फिर कोड विंडो में मूल कोड को नीचे दिए गए VBA कोड से बदलें।
वीबीए कोड: एक्सेल में एकाधिक अनुलग्नकों के साथ संलग्न ईमेल भेजें
Private Sub CommandButton1_Click()
Dim xStrFile As String
Dim xFilePath As String
Dim xFileDlg As FileDialog
Dim xFileDlgItem As Variant
Dim xOutApp As Outlook.Application
Dim xMailOut As Outlook.MailItem
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xMailOut = xOutApp.CreateItem(olMailItem)
Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
If xFileDlg.Show = -1 Then
With xMailOut
.BodyFormat = olFormatRichText
.To = ""
.Subject = "test"
.HTMLBody = "test"
For Each xFileDlgItem In xFileDlg.SelectedItems
.Attachments.Add xFileDlgItem
Next xFileDlgItem
.Display
End With
End If
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End Sub
नोट: कृपया वैरिएबल बदलकर अपना ईमेल प्राप्तकर्ता, विषय और मुख्य भाग निर्दिष्ट करें .को = , .विषय = "परीक्षण" और .HTMLBody = "परीक्षण" कोड में पंक्तियाँ.
6। दबाएं ऑल्ट + Q बाहर निकलने के लिए कुंजियाँ एक साथ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
7। क्लिक करें डेवलपर > डिजाइन मोड डिज़ाइन मोड को बंद करने के लिए। स्क्रीनशॉट देखें:
8. कोड चलाने के लिए कमांड बटन पर क्लिक करें। पॉप अप में ब्राउज विंडो, उन फ़ाइलों का चयन करें जिन्हें आपको ईमेल में संलग्न करना है, और फिर क्लिक करें OK बटन। स्क्रीनशॉट देखें:
9. फिर सूचीबद्ध निर्दिष्ट फ़ील्ड और अनुलग्नकों के साथ एक ईमेल बनाया जाता है। कृपया क्लिक करें भेजें इसे भेजने के लिए बटन. स्क्रीनशॉट देखें:
नोट: वीबीए कोड केवल तभी काम करता है जब आप आउटलुक को अपने ईमेल प्रोग्राम के रूप में उपयोग करते हैं।
एक्सेल में बनाई गई मेलिंग सूची के फ़ील्ड के आधार पर आउटलुक के माध्यम से आसानी से ईमेल भेजें:
RSI ईमेल भेजिए की उपयोगिता एक्सेल के लिए कुटूल एक्सेल में बनाई गई मेलिंग सूची के आधार पर उपयोगकर्ताओं को आउटलुक के माध्यम से ईमेल भेजने में मदद मिलती है।
अभी डाउनलोड करें और इसे आज़माएं! (30 दिन का निःशुल्क ट्रेल)
संबंधित आलेख:
- Excel में कक्षों में निर्दिष्ट ईमेल पतों पर ईमेल कैसे भेजें?
- एक्सेल में ईमेल बॉडी में एक निर्दिष्ट रेंज को कॉपी और पेस्ट करके ईमेल कैसे भेजें?
- एक्सेल में वीबीए द्वारा भेजते समय आउटलुक ईमेल में हस्ताक्षर कैसे डालें?
- यदि एक्सेल में देय तिथि पूरी हो गई है तो ईमेल कैसे भेजें?
- एक्सेल में सेल वैल्यू के आधार पर स्वचालित रूप से ईमेल कैसे भेजें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!