Outlook Application_NewMail Problem

[mmartinez74]

I am trying to understand how VBA in outlook works.

I created the following routine, which looks for a new message with the subject of %Test% and then displays a message box with the sender's name. But I get an error that says 'Object variable not set' What do I need to set?

Private Sub Application_NewMail()
Dim omMail As MailItem
Set ofFolder = Application.GetNamespace("MAPI&quot.GetDefaultFolder(olFolderInbox)
If omMail.Subject = "%Test%" Then MsgBox (omMail.SenderName)
End Sub

 

[RobBroekhuis]

You never assign omMail. I believe what you need is:

set omMail=ofFolder.items(1)

Check it out, if it doesn't work ask back.
Rob

 

[mmartinez74]

by adding this line, I get information on the first item in the mailbox....which is the oldest one. How can I get information on the last item in the mail box?

 

[RobBroekhuis]

Okay - I guess it depends on how you've sorted your mailbox. For me, items(1) is the newest one. The outlook experts here will be able to give you a foolproof method that does not depend on the sort order. In your case, you could open .items(.items.count) and it would probably work.
Rob