Outlook फ़ोल्डर में नवीनतम मेल से अनुलग्नक कैसे खोजें और डाउनलोड करें?

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

Sub FebAttachment_Click()
Const AttachmentPath As String = "D:\Documents and Settings\rahul.baskaran\Desktop\"
Dim oApp As Object, ONS As Object, OInb As Object
Dim OItem, OAtch As Object
Dim OFind As Object
Dim OMail As Object
Dim strName As String
Dim strExt As String


Set oApp = GetObject(, "Outlook.application")
Set ONS = oApp.GetNamespace("MAPI")
Set OInb = ONS.Folders("Archive Folders").Folders("BIZOPS").Folders("2014.02")
Set OMail = OInb.Items
For Each OItem In OInb.Items

If OItem.Attachments.Count <> 0 Then
        For Each OAtch In OItem.Attachments
            strName = OAtch.Filename
            strExt = Split(strName, ".z")(0)
            OAtch.SaveAsFile AttachmentPath & OAtch.Filename
            Exit For
        Next
    Else
        MsgBox "The mail doesn't have an attachment"
        End If
Next OItem
0

1 उत्तर

अवरोही क्रम में निर्माण दिनांक (आइटम.Sort) द्वारा आइटम्स को सॉर्ट करें, फिर संग्रह में पहला आइटम पुनर्प्राप्त करें।

सुनिश्चित करें कि आपका कोड एक ही आइटम संग्रह पर चल रहा है (OInb.Items को पुनर्प्राप्त करें और इसे एक चर में कैश करें)।

0
जोड़ा
एक दम बढ़िया। मैंने इस तरह का इस्तेमाल किया और यह एक बार काम किया जब मैंने इस भाग को OItem में OInb.Items से प्रत्येक OItem OMail में से बदल दिया। हालांकि मुझे यकीन नहीं है कि यह कैसे mattered। सहायता के लिए धन्यवाद। :)
जोड़ा लेखक Rahul Baskaran, स्रोत
हर बार जब आप MAPIFolder को कॉल करते हैं। ऐसा लगता है कि आप एक ब्रांड नई COM ऑब्जेक्ट के साथ समाप्त होते हैं जिसे किसी ऑब्जेक्ट के किसी अन्य उदाहरण का कोई ज्ञान नहीं है। यही कारण है कि मैंने आइटम संग्रह को केवल एक बार पुनर्प्राप्त करने का सुझाव दिया - यह सुनिश्चित करने के लिए कि आप ऑब्जेक्ट के उसी उदाहरण से आइटम्स को सॉर्ट करें और पुनर्प्राप्त करें।
जोड़ा लेखक Dmitry Streblechenko, स्रोत