आउटलुक ईमेल बॉडी टेक्स्ट को एक्सेल स्प्रेडशीट में कैसे निर्यात करें?
यदि आप चयनित ईमेल बॉडी टेक्स्ट को आउटलुक से एक्सेल स्प्रेडशीट में निर्यात करना चाहते हैं, तो इस आलेख में दी गई विधि आपकी मदद कर सकती है।
वीबीए कोड के साथ आउटलुक ईमेल बॉडी टेक्स्ट को एक्सेल स्प्रेडशीट में निर्यात करें
वीबीए कोड के साथ आउटलुक ईमेल बॉडी टेक्स्ट को एक्सेल स्प्रेडशीट में निर्यात करें<
आउटलुक ईमेल के चयनित मुख्य पाठ को एक्सेल में निर्यात करने के लिए कृपया नीचे दिया गया वीबीए कोड चलाएँ।
1. ईमेल खोलें, उस ईमेल बॉडी का चयन करें जिसे आप एक्सेल स्प्रेडशीट में निर्यात करना चाहते हैं, और फिर दबाएं ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल. और फिर नीचे दिए गए VBA कोड को कोड विंडो में कॉपी करें।
वीबीए कोड: आउटलुक ईमेल बॉडी टेक्स्ट को एक्सेल स्प्रेडशीट में निर्यात करें
Sub ExportToExcel()
Dim xExcel As Excel.Application
Dim xWb As Workbook
Dim xWs As Worksheet
Dim xInspector As Inspector
Dim xItem As Object
Dim xMailItem As MailItem
Dim xDoc As Document
Dim xShell As Object
Dim xFilePath As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a Folder:", 0, 0)
If TypeName(xFolder) = "Nothing" Then Exit Sub
Set xFolderItem = xFolder.Self
xFilePath = xFolderItem.Path & "\"
Set xItem = Outlook.Application.ActiveExplorer.Selection.item(1)
If xItem.Class <> olMail Then Exit Sub
Set xMailItem = xItem
Set xInspector = xMailItem.GetInspector
Set xDoc = xInspector.WordEditor
xDoc.Application.Selection.Range.Copy
xInspector.Close olDiscard
Set xExcel = New Excel.Application
Set xWb = xExcel.Workbooks.Add
Set xWs = xWb.Sheets.item(1)
xExcel.Visible = False
xWs.Activate
xWs.Paste
xWs.SaveAs xFilePath & "Email body.xlsx"
xWb.Close True
xExcel.Quit
Set xWs = Nothing
Set xWb = Nothing
Set xExcel = Nothing
End Sub
नोट: कोड में, "ईमेल body.xlsx"वह कार्यपुस्तिका का नाम है जिसे आप चयनित ईमेल बॉडी टेक्स्ट के साथ बनाएंगे। आप अपनी आवश्यकता के आधार पर इसे बदल सकते हैं।
3। क्लिक करें टूल्स > संदर्भ. फिर दोनों की जांच करें माइक्रोसॉफ्ट एक्सेल ऑब्जेक्ट लाइब्रेरी और माइक्रोसॉफ्ट वर्ड ऑब्जेक्ट लाइब्रेरी बक्सों में सन्दर्भ - परियोजना संवाद बकस। स्क्रीनशॉट देखें:
4. फिर ए फ़ोल्डर के लिए ब्राउज़ संवाद बॉक्स पॉप अप होता है, कृपया कार्यपुस्तिका को सहेजने के लिए एक फ़ोल्डर चुनें और क्लिक करें OK बटन.
अब एक कार्यपुस्तिका जिसका नाम है "ईमेल शरीर” बनाया गया है और एक निर्दिष्ट फ़ोल्डर में सहेजा गया है। कार्यपुस्तिका खोलें, आप देख सकते हैं कि चयनित ईमेल बॉडी टेक्स्ट कार्यपुस्तिका की शीट1 में निर्यात किया गया है।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
आउटलुक के लिए कुटूल - आपके आउटलुक को सुपरचार्ज करने के लिए 100 से अधिक शक्तिशाली सुविधाएँ
🤖 एआई मेल सहायक: एआई जादू के साथ त्वरित प्रो ईमेल - प्रतिभाशाली उत्तरों के लिए एक-क्लिक, सही टोन, बहुभाषी महारत। ईमेलिंग को सहजता से रूपांतरित करें! ...
📧 ईमेल स्वचालन: कार्यालय से बाहर (POP और IMAP के लिए उपलब्ध) / ईमेल भेजने का शेड्यूल करें / ईमेल भेजते समय नियमों के अनुसार ऑटो सीसी/बीसीसी / स्वतः अग्रेषित (उन्नत नियम) / स्वतः ग्रीटिंग जोड़ें / बहु-प्राप्तकर्ता ईमेल को स्वचालित रूप से अलग-अलग संदेशों में विभाजित करें ...
📨 ईमेल प्रबंधन: आसानी से ईमेल याद रखें / विषयों और अन्य लोगों द्वारा घोटाले वाले ईमेल को ब्लॉक करें / डुप्लिकेट ईमेल हटाएँ / उन्नत खोज / फ़ोल्डरों को समेकित करें ...
📁 अनुलग्नक प्रो: बैच सहेजें / बैच अलग करना / बैच संपीड़न / ऑटो सहेजें / ऑटो डिटैच / ऑटो कंप्रेस ...
🌟 इंटरफ़ेस जादू: 😊अधिक सुंदर और शानदार इमोजी / टैब्ड व्यू के साथ अपनी आउटलुक उत्पादकता बढ़ाएँ / आउटलुक को बंद करने के बजाय छोटा करें ...
???? एक-क्लिक चमत्कार: आने वाले अनुलग्नकों के साथ सभी को उत्तर दें / फ़िशिंग-रोधी ईमेल / 🕘प्रेषक का समय क्षेत्र दिखाएं ...
👩🏼🤝👩🏻 संपर्क एवं कैलेंडर: बैच चयनित ईमेल से संपर्क जोड़ें / किसी संपर्क समूह को अलग-अलग समूहों में विभाजित करें / जन्मदिन अनुस्मारक हटाएँ ...
के ऊपर 100 सुविधाएँ आपके अन्वेषण की प्रतीक्षा करें! अधिक जानने के लिए यहां क्लिक करें।