Application_NewMail fetching older mails from Inbox

[manju 3]

Hi Team, I am trying to trigger a macro whenever a new mail is recieved in the outlook. Here is my code :

Private Sub Application_NewMail()

'To set the email folder to INBOX, set to MAPI
Dim onamespace As Outlook.NameSpace
Set onamespace = Outlook.GetNamespace("MAPI")

Dim myfolder As Outlook.Folder
Set myfolder = onamespace.GetDefaultFolder(olFolderInbox)

Dim email As Outlook.MailItem
Set email = Outlook.CreateItem(olMailItem)
Dim attachment As Outlook.attachment

For Each email In myfolder.Items
MsgBox email.SenderName
Next email
End Sub

But i am not getting the new mail which i sent at present. myFolder.Items is pointing to inbox but fetching older mails I am getting the "older" mails. Can anyone help me on where i am going wrong here Thanks Manju