My Code: Dim iMailItem As Integer Dim dteStart As String Dim dteEnd As String Dim myOutlook As Outlook.Application Dim myNameSpace As Namespace Dim mItemCollection As Items Dim myMailItem As MailItem Dim SafeMail Dim sUser As String Dim sMailbox As String Dim sFolder As String Dim sSaveLocation As String On Error GoTo ErrorHandler 'U S E R V A R I A B L E S sUser = "Fname" sMailbox = "Mailbox - LName, FName" sFolder = "outlook:Search Folders\Current Sent & Received\" dteStart = (Date - 1 & " 00:00") dteEnd = (Date - 1 & " 23:59") Set myOutlook = CreateObject("Outlook.Application") Set myNameSpace = myOutlook.GetNamespace("MAPI") Set mItemCollection = myNameSpace.Folders(sMailbox).Folders("Search Folders").Folders("Current Sent & Received") 'FAILS ON THIS LINE 'Set Filter to previous day Set mItemCollection = mItemCollection.Restrict("[SentOn] >= '" & dteStart & "'") Set mItemCollection = mItemCollection.Restrict("[SentOn] <= '" & dteEnd & "'") mItemCollection.Sort "[SentOn]", False ETC