Option
Explicit
Private
Sub
Application_NewMail()
Dim
objItems
As
Outlook.Items
Dim
objMailItem
As
Outlook.MailItem
Dim
objItem
As
Object
Set
objItems = GetNamespace(
"MAPI"
).GetDefaultFolder(olFolderInbox).Items
Set
objItems = objItems.Restrict(
"[UnRead] = True"
)
Call
objItems.Sort(
"SentOn"
)
For
Each
objItem
In
objItems
If
TypeOf
objItem
Is
Outlook.MailItem
Then
Set
objMailItem = objItem
End
If
Next
End
Sub