वीबीए द्वारा अनुलग्नकों के बिना पुरालेख

आउटलुक के लिए कुटूल्स द्वारा अनुलग्नकों के बिना पुरालेख

यह विधि निर्दिष्ट फ़ोल्डर से सभी अनुलग्नकों को हटाने के लिए एक वीबीए पेश करेगी जिसे आप संग्रहित करेंगे, और फिर आप अनुलग्नकों के बिना संग्रहित कर सकते हैं। कृपया इस प्रकार करें:

1. में मेल देखें, वह फ़ोल्डर चुनें जिसे आप संग्रहित करेंगे और दबाएँ ऑल्ट + F11 एप्लिकेशन विंडो के लिए Microsoft Visual Basic खोलने के लिए कुंजियाँ।

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और फिर VBA के नीचे नई मॉड्यूल विंडो में पेस्ट करें।

वीबीए: आउटलुक में चयनित मेल फ़ोल्डर से सभी अनुलग्नक हटाएं

Public Sub SaveDeleteAttachments()
Dim xMailItem As Outlook.MailItem 'Object
Dim xAttachments As Outlook.Attachments
Dim i As Long
Dim xFolder As Folder
Dim xFilePath As String
Dim xFldPath As String
Dim xDeletedFilePath As String
On Error Resume Next
xFldPath = CreateObject("WScript.Shell").SpecialFolders(16)
xFldPath = xFldPath & "\MyAttachments"
If Dir(xFldPath, vbDirectory) = "" Then
MkDir xFldPath
End If
Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
For Each xMailItem In xFolder.Items
If xMailItem.Class = olMail Then
Set xAttachments = xMailItem.Attachments
While xAttachments.Count > 0
xFilePath = xAttachments.Item(1).FileName
xFilePath = xFldPath & "\" & xFilePath
xAttachments.Item(1).SaveAsFile xFilePath
xAttachments.Item(1).Delete
If xMailItem.BodyFormat <> olFormatHTML Then
xDeletedFilePath = xDeletedFilePath & vbCrLf & "<file://" & xFilePath & ">"
Else
xDeletedFilePath = xDeletedFilePath & "
" & "" & xFilePath & ""
End If
Wend
If xDeletedFilePath <> "" Then
If xMailItem.BodyFormat <> olFormatHTML Then
xMailItem.Body = "The file(s) were saved to: " & xDeletedFilePath & vbCrLf & xMailItem.Body
Else
xMailItem.HTMLBody = "
" & _
"The file(s) were saved to: " & xDeletedFilePath & "
" & xMailItem.HTMLBody
End If
xMailItem.Save
xDeletedFilePath = ""
End If
End If
Next
Exit Sub:
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub

3। दबाएं F5 कुंजी या क्लिक करें रन कोड चलाने के लिए बटन. फिर सभी अनुलग्नक चयनित मेल फ़ोल्डर से तुरंत हटा दिए जाते हैं।

4। क्लिक करें पट्टिका > जानकारी > टूल्स > पुराने सामान को साफ करें (या पट्टिका > जानकारी > सफ़ाई उपकरण > पुरालेख).

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

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

7. अब आप आर्काइव डायलॉग बॉक्स पर वापस लौटें, कृपया क्लिक करें OK संग्रह समाप्त करने के लिए बटन.
अब तक, आपने मेल फ़ोल्डर को बिना किसी अनुलग्नक के संग्रहीत किया है।

यदि आपके पास आउटलुक के लिए कुटूल स्थापित है, तो आप इसे लागू कर सकते हैं सभी को अलग करें निर्दिष्ट फ़ोल्डर से सभी अनुलग्नकों को तुरंत हटाने की सुविधा जिसे आप संग्रहित करेंगे, और फिर अनुलग्नकों के बिना आसानी से संग्रहित करेंगे।

1. में मेल देखें, निर्दिष्ट मेल फ़ोल्डर खोलें जिसे आप संग्रहीत करेंगे, दबाकर सभी ईमेल का चयन करें कंट्रोल + A कुंजियाँ, और फिर क्लिक करें कुटूल > सभी को अलग करें. स्क्रीनशॉट देखें:

2. कृपया एक फ़ोल्डर चुनें संवाद बॉक्स में, क्लिक करें ब्राउज बटन  उस फ़ोल्डर को निर्दिष्ट करने के लिए जिसमें आप अनुलग्नक सहेजेंगे, से एक सबफ़ोल्डर शैली निर्दिष्ट करें निम्नलिखित शैली में सबफ़ोल्डर बनाएँ ड्रॉप डाउन सूची, और क्लिक करें Ok बटन। स्क्रीनशॉट देखें:

3। फिर से लॉगिन करने के लिए हाँ बटन और OK पॉपिंग आउट डायलॉग बॉक्स में क्रमिक रूप से बटन।

4. क्लिक करने के लिए आगे बढ़ें पट्टिका > जानकारी > टूल्स > पुराने सामान को साफ करें (या पट्टिका > जानकारी > सफ़ाई उपकरण > पुरालेख).

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

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

7. अब आप आर्काइव डायलॉग बॉक्स पर वापस लौटें, कृपया क्लिक करें OK संग्रह समाप्त करने के लिए बटन.

अब तक, आपने निर्दिष्ट मेल फ़ोल्डर को बिना अनुलग्नकों के संग्रहीत कर लिया है।

केवल आउटलुक में अनुलग्नकों को स्वचालित रूप से कैसे संग्रहित करें?

आउटलुक में वर्ष/माह/तारीख के अनुसार ईमेल कैसे संग्रहित करें?