आउटलुक में एकाधिक ईमेल से फ़ोल्डर में सभी अनुलग्नकों को कैसे सहेजें?

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

एकाधिक ईमेल से सभी अनुलग्नकों को VBA कोड वाले फ़ोल्डर में सहेजें
एक अद्भुत टूल के साथ कई ईमेल से फ़ोल्डर में सभी अनुलग्नकों को सहेजने के लिए कई क्लिक

एकाधिक ईमेल से सभी अनुलग्नकों को VBA कोड वाले फ़ोल्डर में सहेजें

यह अनुभाग एक चरण-दर-चरण मार्गदर्शिका में एक VBA कोड प्रदर्शित करता है, जिससे आपको एक साथ कई ईमेल से सभी अनुलग्नकों को एक विशिष्ट फ़ोल्डर में शीघ्रता से सहेजने में मदद मिलती है। कृपया निम्नानुसार करें.

1. सबसे पहले, आपको अपने कंप्यूटर में अटैचमेंट को सेव करने के लिए एक फ़ोल्डर बनाना होगा।

में जाओ दस्तावेज़ फ़ोल्डर बनाएं और नाम का एक फ़ोल्डर बनाएं "संलग्नक"। स्क्रीनशॉट देखें:

2. उन ईमेल का चयन करें जिन्हें आप अटैचमेंट में सेव करेंगे और फिर दबाएँ ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

3। क्लिक करें सम्मिलित करें > मॉड्यूल को खोलने के लिए मॉड्यूल विंडो, और फिर निम्न VBA कोड में से एक को विंडो में कॉपी करें।

वीबीए कोड 1: एकाधिक ईमेल से अटैचमेंट को थोक में सहेजें (बिल्कुल समान नाम वाले अटैचमेंट को सीधे सहेजें)

टिप्स: यह कोड फ़ाइल नामों के बाद अंक 1, 2, 3... जोड़कर बिल्कुल उसी नाम के अनुलग्नकों को सहेजेगा।

Dim GCount As Integer
Dim GFilepath As String
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
    VBA.MkDir xFolderPath
End If
GFilepath = ""
For Each xMailItem In xSelection
    Set xAttachments = xMailItem.Attachments
    xAttCount = xAttachments.Count
    xSaveFiles = ""
    If xAttCount > 0 Then
        For i = xAttCount To 1 Step -1
            GCount = 0
            xFilePath = xFolderPath & xAttachments.Item(i).FileName
            GFilepath = xFilePath
            xFilePath = FileRename(xFilePath)
            If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then
                xAttachments.Item(i).SaveAsFile xFilePath
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
                Else
                    xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next i
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub

Function FileRename(FilePath As String) As String
Dim xPath As String
Dim xFso As FileSystemObject
On Error Resume Next
Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath
FileRename = xPath
If xFso.FileExists(xPath) Then
    GCount = GCount + 1
    xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." + xFso.GetExtensionName(GFilepath)
    FileRename = FileRename(xPath)
End If
xFso = Nothing
End Function

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

वीबीए कोड 2: एकाधिक ईमेल से अटैचमेंट को थोक में सहेजें (डुप्लिकेट की जांच करें)

Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
Dim xYesNo As Integer
Dim xFlag As Boolean
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
    VBA.MkDir xFolderPath
End If
For Each xMailItem In xSelection
    Set xAttachments = xMailItem.Attachments
    xAttCount = xAttachments.Count
    xSaveFiles = ""
    If xAttCount > 0 Then
        For i = xAttCount To 1 Step -1
            xFilePath = xFolderPath & xAttachments.Item(i).FileName
            xFlag = True
            If VBA.Dir(xFilePath, 16) <> Empty Then
                xYesNo = MsgBox("The file is exists, do you want to replace it", vbYesNo + vbInformation, "Kutools for Outlook")
                If xYesNo = vbNo Then xFlag = False
            End If
            If xFlag = True Then
                xAttachments.Item(i).SaveAsFile xFilePath
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
                Else
                    xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next i
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub

नोट्स:

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

फिर चयनित ईमेल के सभी अनुलग्नक आपके द्वारा चरण 1 में बनाए गए फ़ोल्डर में सहेजे जाते हैं। 

टिप्पणियाँ: वहाँ एक हो सकता है माइक्रोसॉफ्ट आउटलुक प्रॉम्प्ट बॉक्स पॉप अप हो रहा है, कृपया क्लिक करें अनुमति देना आगे बढ़ने के लिए बटन.

एक अद्भुत टूल से एकाधिक ईमेल से सभी अनुलग्नकों को फ़ोल्डर में सहेजें

यदि आप वीबीए में नौसिखिया हैं, तो यहां इसकी अत्यधिक अनुशंसा की जाती है सभी अनुलग्नक सहेजें की उपयोगिता आउटुक के लिए कुटूल आपके लिए। इस उपयोगिता के साथ, आप केवल आउटलुक में कई क्लिक के साथ एक साथ कई ईमेल से सभी अनुलग्नकों को तुरंत सहेज सकते हैं।
कृपया सुविधा लागू करने से पहले सबसे पहले आउटलुक के लिए कुटूल डाउनलोड और इंस्टॉल करें.

1. उन ईमेल का चयन करें जिनमें वे अनुलग्नक हैं जिन्हें आप सहेजना चाहते हैं।

सुझाव: आप इसे दबाकर कई गैर-आसन्न ईमेल का चयन कर सकते हैं कंट्रोल कुंजी और उन्हें एक-एक करके चुनें;
या दबाकर एकाधिक आसन्न ईमेल का चयन करें पाली कुंजी और पहला ईमेल और अंतिम ईमेल चुनें।

2। क्लिक करें कुटूल >अनुलग्नक उपकरण > शमादान जिसमें मोमबत्ती आखिर तक जल सके. स्क्रीनशॉट देखें:

3। में सेटिंग्स सहेजें संवाद, क्लिक करें अनुलग्नकों को सहेजने के लिए एक फ़ोल्डर का चयन करने के लिए बटन, और फिर क्लिक करें OK बटन.

3। क्लिक करें OK अगले संवाद बॉक्स में दो बार पॉप अप करें, फिर चयनित ईमेल में सभी अनुलग्नक एक ही बार में निर्दिष्ट फ़ोल्डर में सहेजे जाते हैं।

टिप्पणियाँ:

• 1. यदि आप ईमेल के आधार पर अनुलग्नकों को विभिन्न फ़ोल्डरों में सहेजना चाहते हैं, तो कृपया जांचें निम्न शैली में सबफ़ोल्डर बनाएँ बॉक्स, और ड्रॉप-डाउन से एक फ़ोल्डर शैली चुनें।
• 2. सभी अनुलग्नकों को सहेजने के अलावा, आप विशिष्ट शर्तों के अनुसार अनुलग्नकों को सहेज सकते हैं। उदाहरण के लिए, आप केवल पीडीएफ फ़ाइल अनुलग्नकों को सहेजना चाहते हैं जिनके फ़ाइल नाम में "चालान" शब्द है, कृपया क्लिक करें उन्नत विकल्प शर्तों का विस्तार करने के लिए बटन, और फिर नीचे दिखाए गए स्क्रीबशॉट के अनुसार कॉन्फ़िगर करें।
  
• 3. यदि आप ईमेल आने पर अनुलग्नकों को स्वचालित रूप से सहेजना चाहते हैं, तो ऑटो सेव अटैचमेंट सुविधा मदद कर सकती है.
• 4. चयनित ईमेल से सीधे अटैचमेंट को अलग करने के लिए सभी अनुलग्नकों को अलग करें का लक्षण आउटलुक के लिए कुटूल आप पर एक उपकार कर सकते हैं.

संबंधित लेख

---

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

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

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

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

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

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

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

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

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

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

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