आउटलुक में एकाधिक चयनित ईमेल को थोक में MSG फ़ाइलों के रूप में कैसे सहेजें?

किसी ईमेल को Outlook में MSG फ़ाइल के रूप में सहेजना आसान है। आप Outlook में एकाधिक चयनित ईमेल को अलग-अलग MSG फ़ाइलों के रूप में थोक में कैसे सहेज सकते हैं? यह आलेख आपको इसे प्राप्त करने की एक विधि दिखाएगा.

एकाधिक चयनित ईमेल को VBA कोड के साथ MSG फ़ाइलों के रूप में सहेजें

एकाधिक चयनित ईमेल को VBA कोड के साथ MSG फ़ाइलों के रूप में सहेजें

निम्नलिखित वीबीए कोड आपको एकाधिक चयनित ईमेल को आउटलुक में थोक में व्यक्तिगत एमएसजी फ़ाइलों के रूप में सहेजने में मदद कर सकता है। कृपया निम्नानुसार करें.

1. उन ईमेल का चयन करें जिन्हें आप MSG फ़ाइलों के रूप में सहेजना चाहते हैं। फिर एप्लिकेशन विंडो के लिए Microsoft Visual Basic खोलने के लिए Alt + F11 कुंजियाँ एक साथ दबाएँ।

2. एप्लिकेशन विंडो के लिए Microsoft Visual Basic में, सम्मिलित करें > मॉड्यूल पर क्लिक करें, और फिर नीचे दिए गए VBA कोड को मॉड्यूल विंडो में कॉपी करें।

वीबीए कोड: एकाधिक चयनित ईमेल को आउटलुक में व्यक्तिगत एमएसजी फाइलों के रूप में सहेजें

Public Sub SaveMessageAsMsg()
'Update by Extendoffice 2018/3/5
Dim xMail As Outlook.MailItem
Dim xObjItem As Object
Dim xPath As String
Dim xDtDate As Date
Dim xName, xFileName As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xFileName = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xObjItem In Outlook.ActiveExplorer.Selection
    If xObjItem.Class = olMail Then
        Set xMail = xObjItem
        xName = xMail.Subject
        xDtDate = xMail.ReceivedTime
        xName = Format(xDtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
          vbUseSystem) & Format(xDtDate, "-hhnnss", _
          vbUseSystemDayOfWeek, vbUseSystem) & "-" & xName & ".msg"
        xPath = xFileName + xName
        xMail.SaveAs xPath, olMSG
    End If
Next
End Sub

3. कोड चलाने के लिए F5 कुंजी दबाएँ।

4. फ़ोल्डर के लिए ब्राउज़ करें संवाद बॉक्स में, कृपया एमएसजी फ़ाइलों को सहेजने के लिए एक फ़ोल्डर निर्दिष्ट करें और फिर ओके बटन पर क्लिक करें। स्क्रीनशॉट देखें:

अब सभी चयनित ईमेल अलग-अलग MSG फ़ाइलों के रूप में सहेजे गए हैं जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है।

---

सर्वोत्तम कार्यालय उत्पादकता उपकरण

आउटलुक के लिए कुटूल - आपके आउटलुक को सुपरचार्ज करने के लिए 100 से अधिक शक्तिशाली सुविधाएँ

🤖 एआई मेल सहायक: एआई जादू के साथ त्वरित प्रो ईमेल - प्रतिभाशाली उत्तरों के लिए एक-क्लिक, सही टोन, बहुभाषी महारत। ईमेलिंग को सहजता से रूपांतरित करें! ...

📧 ईमेल स्वचालन: कार्यालय से बाहर (POP और IMAP के लिए उपलब्ध)  /  ईमेल भेजने का शेड्यूल करें  /  ईमेल भेजते समय नियमों के अनुसार ऑटो सीसी/बीसीसी  /  स्वतः अग्रेषित (उन्नत नियम)   /  स्वतः ग्रीटिंग जोड़ें   /  बहु-प्राप्तकर्ता ईमेल को स्वचालित रूप से अलग-अलग संदेशों में विभाजित करें ...

📨 ईमेल प्रबंधन: आसानी से ईमेल याद रखें  /  विषयों और अन्य लोगों द्वारा घोटाले वाले ईमेल को ब्लॉक करें  /  डुप्लिकेट ईमेल हटाएँ  /  उन्नत खोज  /  फ़ोल्डरों को समेकित करें ...

📁 अनुलग्नक प्रो: बैच सहेजें  /  बैच अलग करना  /  बैच संपीड़न  /  ऑटो सहेजें   /  ऑटो डिटैच  /  ऑटो कंप्रेस ...

🌟 इंटरफ़ेस जादू: 😊अधिक सुंदर और शानदार इमोजी   /  टैब्ड व्यू के साथ अपनी आउटलुक उत्पादकता बढ़ाएँ  /  आउटलुक को बंद करने के बजाय छोटा करें ...

???? एक-क्लिक चमत्कार: आने वाले अनुलग्नकों के साथ सभी को उत्तर दें  /   फ़िशिंग-रोधी ईमेल  /  🕘प्रेषक का समय क्षेत्र दिखाएं ...

👩🏼‍🤝‍👩🏻 संपर्क एवं कैलेंडर: बैच चयनित ईमेल से संपर्क जोड़ें  /  किसी संपर्क समूह को अलग-अलग समूहों में विभाजित करें  /  जन्मदिन अनुस्मारक हटाएँ ...

के ऊपर 100 सुविधाएँ आपके अन्वेषण की प्रतीक्षा करें! अधिक जानने के लिए यहां क्लिक करें।

विस्तार में पढ़ें       मुफ्त डाउनलोड      खरीद फरोख्त