मेल मर्ज का उपयोग करके, हम दस्तावेजों का एक संग्रह बना सकते हैं जो प्रत्येक प्राप्तकर्ता को व्यक्तिगत रूप से प्राप्त होता है। यदि आप एक्सेल से आउटलुक में मेल मर्ज करने के लिए कुछ विशेष ट्रिक्स ढूंढ रहे हैं, तो आप सही जगह पर आए हैं। एक्सेल से आउटलुक में अटैचमेंट के साथ मेल मर्ज करने के कई तरीके हैं। यह लेख अटैचमेंट के साथ एक्सेल से आउटलुक में मेल मर्ज करने के दो उपयुक्त उदाहरणों पर चर्चा करेगा। इसे पूरी तरह से सीखने के लिए पूरी गाइड का पालन करें।
अटैचमेंट के साथ एक्सेल से आउटलुक में मेल मर्ज के 2 उपयुक्त उदाहरण
हम अटैचमेंट के साथ एक्सेल से आउटलुक में मेल मर्ज करने के लिए दो प्रभावी और मुश्किल तरीकों का उपयोग करेंगे। यह खंड दोनों तरीकों पर व्यापक विवरण प्रदान करता है। आप अपने उद्देश्य के लिए उनमें से किसी एक का उपयोग कर सकते हैं, अनुकूलन के मामले में उनकी एक विस्तृत श्रृंखला है। आपको इन सभी को सीखना और लागू करना चाहिए, क्योंकि वे आपकी सोच क्षमता और एक्सेल ज्ञान में सुधार करते हैं। हम यहां माइक्रोसॉफ्ट ऑफिस 365 संस्करण का उपयोग कर रहे हैं, लेकिन आप अपनी पसंद के अनुसार किसी अन्य संस्करण का उपयोग कर सकते हैं।
1. सिंगल अटैचमेंट के साथ एक्सेल से आउटलुक में मेल मर्ज
यहां, हम प्रदर्शित करेंगे कि सिंगल अटैचमेंट के साथ एक्सेल से आउटलुक में मेल मर्ज कैसे करें। आइए पहले आपको हमारे एक्सेल डेटासेट से परिचित कराते हैं ताकि आप समझ सकें कि हम इस लेख के साथ क्या हासिल करने की कोशिश कर रहे हैं। हमारे पास एक डेटासेट है जो एक व्यक्ति का नाम, ईमेल आईडी, और व्यक्ति-अपेक्षित फाइल दिखाता है।
आप विजुअल बेसिक फॉर एप्लीकेशन (VBA) का उपयोग करके सिंगल अटैचमेंट के साथ एक्सेल से आउटलुक में मेल मर्ज कर सकते हैं। ऐसा करने के लिए, आपको अपने रिबन पर Developer tab दिखाने की आवश्यकता है। उसके बाद, आपको अटैचमेंट के साथ एक्सेल से आउटलुक में मेल मर्ज करने के लिए निम्नलिखित चरणों का पालन करना होगा।
📌 चरण:
- सबसे पहले, रिबन से, Developer टैब पर जाएं।
- फिर, Code समूह से Visual Basic चुनें।
- या, आपको VBA एडिटर खोलने के लिए Alt+F11 दबाना होगा।
- VBA विंडो में, Insert पर जाएं और Module चुनें।
- अगला, आपको निम्नलिखित कोड टाइप करना होगा
Sub Single_attachment() Dim appOutlook As Object Dim Email As Object Dim source, mailto As String Set appOutlook = CreateObject("Outlook.Application") Set Email = appOutlook.CreateItem(olMailItem) mailto = mailto & Cells(2, 2) & ";" source = "F:\SOFTEKO\61-0055\New folder\" & Cells(2, 3) Email.attachments.Add source 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- बाद में, विजुअल बेसिक विंडो बंद करें, और Alt+F8 दबाएं।
- जब Macro डायलॉग बॉक्स खुलता है, तो Macro name में Single_attachment चुनें। Run पर क्लिक करें।
- परिणामस्वरूप, एक आउटलुक विंडो दिखाई देगी, और आप वांछित फाइल अटैचमेंट देखेंगे
🔎 VBA कोड व्याख्या
Sub Single_attachment()सबसे पहले, मैक्रो के सब-प्रोसीजर के लिए एक नाम प्रदान करें।
Dim appOutlook As Object Dim Email As Object Dim source, mailto As Stringअगला, मैक्रो के लिए आवश्यक वेरिएबल घोषित करें।
Set appOutlook = CreateObject("Outlook.Application") Set Email = appOutlook.CreateItem(olMailItem)यहां, appOutlook और Email नाम के नए ऑब्जेक्ट बनाने के लिए सेट कीवर्ड का उपयोग किया जाता है।
mailto = mailto & Cells(2, 2) & ";"यह वेरिएबल उस व्यक्ति को समाहित करेगा जिसे मेल करना है।
source = "F:\SOFTEKO\61-0055\New folder\" & Cells(2, 3)यह वेरिएबल एक निर्दिष्ट फ़ोल्डर से व्यक्ति की ईमेल आईडी समाहित करेगा।
ThisWorkbook.Saveयह सेव कमांड वर्कबुक को सेव करेगा।
source = ThisWorkbook.FullNameयह वेरिएबल इस वर्कबुक का नाम समाहित करेगा।
Email.attachments.Add sourceयह Add मेथड एक स्रोत को एक कलेक्शन ऑब्जेक्ट में जोड़ देगा।
Email.To = mailto Email.Subject = "Important Sheets" Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Sheets." & vbNewLine & "Regards."यह वेरिएबल "Important sheets" टेक्स्ट को ईमेल विषय के रूप में और "Greetings Everyone, Please go through the sheets, regards" टेक्स्ट को ईमेल बॉडी के रूप में लौटाएगा।
Email.Displayयह Display मेथड ईमेल प्रदर्शित करेगा।
End Subअंत में, मैक्रो के सब-प्रोसीजर को समाप्त करें।
नोट:
आपको एक्सेल फाइल और डॉक्स फाइल को एक फ़ोल्डर में सेव करने की आवश्यकता है। अन्यथा, यह विधि काम नहीं करेगी।
अधिक पढ़ें: वर्ड के बिना एक्सेल में मेल मर्ज (2 उपयुक्त तरीके)
2. एकाधिक अटैचमेंट के साथ एक्सेल से आउटलुक में मेल मर्ज
यहां, हम प्रदर्शित करेंगे कि एकाधिक अटैचमेंट के साथ एक्सेल से आउटलुक में मेल मर्ज कैसे करें। आइए पहले आपको हमारे एक्सेल डेटासेट से परिचित कराते हैं ताकि आप समझ सकें कि हम इस लेख के साथ क्या हासिल करने की कोशिश कर रहे हैं। हमारे पास एक डेटासेट है जो कुछ लोगों के नाम, ईमेल आईडी, और व्यक्ति-अपेक्षित फाइलें दिखाता है।
आप विजुअल बेसिक फॉर एप्लीकेशन (VBA) का उपयोग करके एकाधिक अटैचमेंट के साथ एक्सेल से आउटलुक में मेल मर्ज कर सकते हैं। ऐसा करने के लिए, आपको अपने रिबन पर Developer tab दिखाने की आवश्यकता है। उसके बाद, आपको एक्सेल से मेल मर्ज करने के लिए निम्नलिखित चरणों का पालन करना होगा
📌 चरण:
- सबसे पहले, रिबन से, Developer टैब पर जाएं।
- फिर, Code समूह से Visual Basic चुनें।
- या, आपको VBA एडिटर खोलने के लिए Alt+F11 दबाना होगा।
- VBA विंडो में, Insert पर जाएं और Module चुनें।
- अगला, आपको निम्नलिखित कोड टाइप करना होगा
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 = "F:\SOFTEKO\61-0055\New folder\" & 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- बाद में, विजुअल बेसिक विंडो बंद करें, और Alt+F8 दबाएं।
- जब Macro डायलॉग बॉक्स खुलता है, तो Macro name में attachments चुनें। Run पर क्लिक करें।
- परिणामस्वरूप, एक आउटलुक विंडो दिखाई देगी, और आप वांछित फाइल अटैचमेंट देखेंगे
🔎 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)यहां, appOutlook और Email नाम के नए ऑब्जेक्ट बनाने के लिए सेट कीवर्ड का उपयोग किया जाता है।
For i = 2 To 5 mailto = mailto & Cells(i, 2) & ";" Next i For j = 2 To 5 source = "F:\SOFTEKO\61-0055\New folder\" & Cells(j, 3)उसके बाद, फॉर लूप शुरू होता है। mailto वेरिएबल उस व्यक्ति को समाहित करेगा जिसे मेल करना है। स्रोत वेरिएबल एक निर्दिष्ट फ़ोल्डर से व्यक्ति की ईमेल आईडी समाहित करेगा।
Nextफिर, आपको फॉर लूप के प्रत्येक पुनरावृत्ति को निष्पादित करना होगा।
ThisWorkbook.Saveयह सेव कमांड वर्कबुक को सेव करेगा।
source = ThisWorkbook.FullNameयह वेरिएबल इस वर्कबुक का नाम समाहित करेगा।
Email.attachments.Add sourceयह Add मेथड एक स्रोत को एक कलेक्शन ऑब्जेक्ट में जोड़ देगा।
Email.To = mailto Email.Subject = "Important Sheets" Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Sheets." & vbNewLine & "Regards."यह वेरिएबल "Important sheets" टेक्स्ट को ईमेल विषय के रूप में और "Greetings Everyone, Please go through the sheets, regards" टेक्स्ट को ईमेल बॉडी के रूप में लौटाएगा।
Email.Displayयह Display मेथड ईमेल प्रदर्शित करेगा।
End Subअंत में, मैक्रो के सब-प्रोसीजर को समाप्त करें।
नोट:
आपको एक्सेल फाइल और डॉक्स फाइलों को एक फ़ोल्डर में सेव करने की आवश्यकता है। अन्यथा, यह विधि काम नहीं करेगी।
अधिक पढ़ें: एक्सेल से मेल मर्ज डॉक्यूमेंट पॉप्युलेट करने के लिए मैक्रो
निष्कर्ष
आज के सत्र का अंत यहीं होता है। मुझे दृढ़ता से विश्वास है कि अब से, आप अटैचमेंट के साथ एक्सेल से आउटलुक में मेल मर्ज करने में सक्षम हो सकते हैं। यदि आपके कोई प्रश्न या सिफारिशें हैं, तो कृपया उन्हें नीचे कमेंट सेक्शन में साझा करें।
विभिन्न एक्सेल-संबंधी समस्याओं और समाधानों के लिए हमारी वेबसाइट Exceldemy.com की जांच करना न भूलें। नई विधियां सीखते रहें और बढ़ते रहें!
संबंधित लेख
- एक्सेल फाइल को मेलिंग लेबल में कैसे मर्ज करें (आसान चरणों के साथ)
- एक्सेल से वर्ड में तस्वीरें मेल मर्ज कैसे करें (2 आसान तरीके)
- एक्सेल से वर्ड एनवेलप में मेल मर्ज (2 आसान तरीके)
- एक्सेल मेल मर्ज में डेट फॉर्मेट कैसे बदलें (त्वरित चरणों के साथ)
