Set OL = CreateObject("Outlook.Application")
    
    Set NS = OL.GetNamespace("MAPI")
    NS.Logon
 If Err.Number <> 0 Then
    MsgBox "Ошибка при вызове Outlook!", vbCritical 
    '...
 End If
    Set myFolder = NS.Folders("Имя папки").Folders("Имя влож. папки") 'Здесь могут быть разные варианты.

 For i = myFolder.Items.Count To 1 Step -1
    Set myItem = myFolder.Items(i)
   If myItem.CreationTime >= MinDate Then Exit For
   For j = 1 To myItem.Attachments.Count
        strFileName = myItem.Attachments(j)
    If strFileName Like strFileMask Then
        myItem.Attachments(j).SaveAsFile strPath
        '...
    End If
   Next 'j
 Next 'i