Question

I built a script that downloads all the attachments in a particular outlook inbox, but I need to modify it so it will only grab emails that fall within a particular date range.

Here’s my code for downloading all the attachments in the folder:

Sub DlAttachments()
    MsgBox ("Cross fingers and click button to start download.")
    Set objOutlook = CreateObject("Outlook.Application")
    Set objNamespace = objOutlook.GetNamespace("MAPI")

    strFolderName = "Special Inbox Admin"
    Set objMailbox = objNamespace.Folders(strFolderName)
    Set objFolder = objMailbox.Folders("Inbox")

    Set colItems = objFolder.Items

    For Each objMessage In colItems
        intCount = objMessage.Attachments.Count
        If intCount > 0 Then
            For i = 1 To intCount
                objMessage.Attachments.Item(i).SaveAsFile "C:\SP_INBOX_DUMP_temp\" & objFolder & "_" & _
                    objMessage.Attachments.Item(i).FileName
            Next
        End If
    Next

    MsgBox ("Download complete. Files downloaded to C:\SP_INBOX_DUMP_temp\")
End Sub

Answer 1

You can use the SentOn property of the object message. That would change your code to :

Dim myDate as Date

For Each objMessage In colItems
    intCount = objMessage.Attachments.Count
    'get the sent date
    sentDate = objMessage.SentOn
    'ref date (adapt format to your system date format dd/mm/yyyy or mm/dd/yyyy)
    myDate = dateValue("31/1/2009")   
    If myDate > sentDate Then
        'do whatever --> Exit For ?
    End If
    If intCount > 0 Then
        For i = 1 To intCount
            objMessage.Attachments.Item(i).SaveAsFile "C:\SP_INBOX_DUMP_temp\" & objFolder & "_" & _
                objMessage.Attachments.Item(i).FileName
        Next
    End If
Next

Regards,

Max