Restrict Outlook Items by Date

by

You can find yesterday’s mail with two separate Restricts.

Private Sub EmailYesterday()

Dim oOlInb As Folder
Dim oOlItm As Object

Dim oOlResults As Object
Dim i As Long

Dim sFilter As String
Dim sFilter2 As String

Set oOlInb = Session.GetDefaultFolder(olFolderInbox)

'Filter recent - Lower Bound of the range
sFilter = "[ReceivedTime]>'" & format(Date - 1, "DDDDD HH:NN") & "'"

Debug.Print vbCr & sFilter
Set oOlResults = oOlInb.Items.Restrict(sFilter)
Debug.Print oOlResults.count & " items."

If oOlResults.count > 0 Then
    For i = 1 To oOlResults.count
        Set oOlItm = oOlResults(i)
        Debug.Print oOlItm.Subject & " - " & oOlItm.ReceivedTime
    Next i
End If

' Filter range - Upper Bound
sFilter2 = "[ReceivedTime]<'" & format(Date, "DDDDD HH:NN") & "'"

Debug.Print vbCr & sFilter; " AND " & sFilter2

Set oOlResults = oOlResults.Restrict(sFilter2)   ' Restrict the Lower Bound result
Debug.Print oOlResults.count & " items."

If oOlResults.count > 0 Then
    For i = 1 To oOlResults.count
        Set oOlItm = oOlResults(i)
        Debug.Print oOlItm.Subject & " - " & oOlItm.ReceivedTime
    Next i
End If
    
ExitRoutine:
    Set oOlInb = Nothing
    Set oOlResults = Nothing
    Debug.Print "Done."
    
End Sub

More Related Contents:

  1. Get reference to additional Inbox
  2. How to add default signature in Outlook
  3. How do I trigger a macro to run after a new mail is received in Outlook?
  4. Outlook VBA – Run a code every half an hour
  5. For Each loop: Some items get skipped when looping through Outlook mailbox to delete items
  6. Can I iterate through all Outlook emails in a folder including sub-folders?
  7. Download attachment from Outlook and Open in Excel
  8. Embed picture in outlook mail body excel vba
  9. How to move each emails from inbox to a sub-folder [duplicate]
  10. Save attachments to a folder and rename them
  11. Outlook Reply or ReplyAll to an Email
  12. VBA Search in Outlook
  13. How to do late binding in VBA?
  14. Distinguish visible and invisible attachments with Outlook VBA
  15. Check for the senderEmailAddress
  16. Removing a string that includes CRLF characters from body of e-mail
  17. How to insert text into Outlook email editor using VBA
  18. How do I open an outlook .msg file from my harddrive that is NOT in outlook?
  19. Add a “CC recipient” to Outlook 2010 VBA
  20. Using visual basic to access subfolder in Inbox?
  21. When is a MailItem not a MailItem? [closed]
  22. Search structured text in Outlook body
  23. Switching the FROM Inbox
  24. How to add an embedded image to an HTML message in Outlook 2010
  25. Iterate all email items in a specific Outlook folder
  26. MS Access VBA: Sending an email through Outlook [closed]
  27. Where does Outlook store the VBA code files?
  28. Working with current open email
  29. Debugging an Outlook 2007 script fired by a rule
  30. Runtime error 287. Sending Emails through Outlook using VBA in Access

Leave a Comment