Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox)
If OutlookMail.ReceivedTime >= Range("email_start_date").Value Then
Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox).Items