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

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

आउटलुक में चयनित मेल में अनुलग्नकों की जानकारी की सूची प्राप्त करें

आउटलुक में चयनित मेल में अनुलग्नकों की जानकारी की सूची प्राप्त करें

1. जिस ईमेल की जानकारी आप पाना चाहते हैं उसे अटैचमेंट के साथ चुनें।

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

3. फिर डबल क्लिक करें Project1 > माइक्रोसॉफ्ट आउटलुक ऑब्जेक्ट > यह आउटलुक सत्र को खोलने के लिए प्रोजेक्ट1 - यह आउटलुक सत्र खिड़की। स्क्रीनशॉट देखें:

4. फिर नीचे दिए गए VBA कोड को कॉपी करें और Project1 - ThisOutlookSession विंडो में पेस्ट करें।

वीबीए कोड: अनुलग्नकों की जानकारी की सूची प्राप्त करें

Option Explicit
Public Sub GetAttachmentList()
    Dim selItem As Object
    Dim aMail As MailItem
    Dim aAttach As attachment
    Dim Report As String
    
    For Each selItem In Application.ActiveExplorer.Selection
        If selItem.Class = olMail Then
            Set aMail = selItem
            For Each aAttach In aMail.Attachments
                Report = Report & vbCrLf & "------------------------------------------------------------------------" & vbCrLf
                Report = Report & GetAttachmentInfo(aAttach)
            Next
            Call CreateReportEmail("Attachment Report", Report)
        End If
    Next
End Sub
 
Public Function GetAttachmentInfo(attachment As attachment)
    Dim Report
    GetAttachmentInfo = ""
    Report = Report & "Index: " & attachment.Index & vbCrLf
    Report = Report & "Display Name: " & attachment.DisplayName & vbCrLf
    Report = Report & "File Name: " & attachment.FileName & vbCrLf
    Report = Report & "Block Level: " & attachment.BlockLevel & vbCrLf
    Report = Report & "Path Name: " & attachment.PathName & vbCrLf
    Report = Report & "Position: " & attachment.Position & vbCrLf
    Report = Report & "Size: " & attachment.Size & vbCrLf
    Report = Report & "Type: " & attachment.Type & vbCrLf
    
    GetAttachmentInfo = Report
End Function
Sub CreateReportEmail(Title As String, Report As String)
    Dim aMail As MailItem
    
    Set aMail = Application.CreateItem(olMailItem)
        
    aMail.Subject = Title
    aMail.Body = Report
    
    aMail.Display
End Sub 

5। दबाएँ F5 VBA कोड चलाने के लिए कीबोर्ड पर कुंजी।

6. अब a मैक्रोज़ संवाद बॉक्स पॉप अप होता है, कृपया क्लिक करें रन बटन.

7. क्लिक करने के बाद रन में बटन मैक्रोज़ संवाद बॉक्स, ईमेल बॉडी के अंदर सूचीबद्ध चयनित ईमेल की सभी अनुलग्नकों की जानकारी के साथ एक नई संदेश विंडो बनाई जाएगी। स्क्रीनशॉट देखें:

नोट: यह वीबीए कोड आउटलुक 2007, 2010 और 2013 पर लागू किया जा सकता है

---

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

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

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

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

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

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

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

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

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

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

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