I have a script:

Public Sub CountMessagesSent()
Dim Items As Outlook.Items
Dim ResultItems As Outlook.Items
Dim Filter As String
Dim DayRange As Long
Dim record As String

DayRange = -1

Set Items = Application.Session.GetDefaultFolder(olFolderSentM ail).Items

Filter = "[SentOn] = '" & DateAdd("d", DayRange, Date) & "'"

Set ResultItems = Items.Restrict(Filter)

MsgBox "Yesterday: " & ResultItems.Count

Open "C:\Users\Jeff\Desktop\Work Shortcuts\Hotkey Responses\EmailsSent.txt" For Output As #1
record = Yesterday & "," & ResultItems.Count
Print #1, record
Close #1

End Sub

Which is SUPPOSED to count only yesterdays emails, but instead I get all email sent from yesterday to current.

I am very new to VB, so any help with an explanation would be great!

Thanks!!

Anyone have an idea?