Problem with GetFirst method in VBA for outlook

[thomasks]

I have a coworker that cannot get the code to work on his machine that works on mine.
The problem seems to be with the GetFirst method not pointing to the latest email in his in box in outlook.
Here is the code that runs:

[green][i]' for automatic syntax highlighting see faq102-6487 
[/i][/green]Option Explicit
Option Base 1


[b]Private[/b] [b]Sub[/b] Application_NewMail()
 
   [b]Dim[/b] oNameSpace                  [b]As[/b] NameSpace
   [b]Dim[/b] oFolderInbox                [b]As[/b] MAPIFolder
   [b]Dim[/b] oMailItem                   [b]As[/b] MailItem
 
   [b]Set[/b] oNameSpace = Application.GetNamespace([navy]"MAPI"[/navy])
   [b]Set[/b] oFolderInbox = oNameSpace.GetDefaultFolder(olFolderInbox)
 
   oFolderInbox.Items.Sort [navy]"Received"[/navy], False
   [b]Set[/b] oMailItem = oFolderInbox.Items.GetFirst
 [green][i]'Check the message subject for quote requests to Kirk Thomas
[/i][/green] [green][i]'if exist then create a task for it and delete the email
[/i][/green]   [b]If[/b] InStr(LCase(oMailItem.Subject), [navy]"pqr"[/navy]) > 0 [b]Or[/b] _
      InStr(LCase(oMailItem.Subject), [navy]"rfq"[/navy]) > 0 [b]Or[/b] _
      InStr(LCase(oMailItem.Subject), [navy]"ccqr"[/navy]) > 0 [b]And[/b] _
      InStr(LCase(oMailItem.Body), [navy]"estimator is kirk thomas"[/navy]) > 0 [b]Then[/b]
      [b]With[/b] oMailItem
         NewTask .SenderName, .Subject, .Body, .Attachments
      [b]End[/b] [b]With[/b]
      oMailItem.Delete
   [b]End[/b] [b]If[/b]
 
   [b]Set[/b] oMailItem = [b]Nothing[/b]
   [b]Set[/b] oFolderInbox = [b]Nothing[/b]
   [b]Set[/b] oNameSpace = [b]Nothing[/b]
 
[b]End[/b] [b]Sub[/b]

Like I said it works fine on my machine, but outlook doesn't seem to update his inbox with the latest email that comes in. When we look in the immediate window for the mailitem is is pointing to a different email than the latest one received.

Thanks