hi

As I understood you problem is getting the subject for the new email, since
sometimes you get an old subject.
I have had a similar problem before and this is because doing
myRecips.Item(1) does not guarantee that you are getting the New or most
recent email message (I can assure you that). There is also the problem that
if you receive multiple messages at a time, the event might not fire once
for each message. Instead it might fire randomly, ie after every couple of
messages. This is because Outlook is receiving email on one thread and
processing VBA on another and they are not syncronized.

So if you are using Outlook 2003, you should process the NewMailEx event
instead of NewMail, because this event receives the new MailItem as an
argument. This you way you are assured to always be processing each new mail
message, because the MailItem taht is passed into the function points to
each new mail item that you receive. It's guaranteed.

If you running a version prior to OL2003, you might not have the NewMailEx
event so you might consider doing this to work around the problem:
- inspect all the messages in Inbox everytime the event is fired.
- All the messages that are not flagged are assumed to be New, so they are
sent to your pager and after that, are also flagged to mark them as sent.
- All messages that were already flagged were already sent so they are
skipped.
(Don't forget to call the Save method on each message after setting the flag
on a messagebecause otherwise the flag is lost most of the times).

Bellow you will find sample code that does exactly what I explained to you
before. It should work for all version of Outlook. If you use OL2003, you
can use the NewMailEx event instead which is somewhat more efficient if you
have a large number of itmes in your inbox.

Private Sub Application_NewMail()
   Dim mi As MailItem, oEmail As MailItem
   Dim f As MAPIFolder
   Set f = Application.Session.GetDefaultFolder(olFolderInbox)

   For Each mi In f
       If mi.FlagStatus = olFlagMarked And mi.FlagIcon = olGreenFlagIcon
Then
           ' skip. message already sent
       Else
           Set oEmail = Application.CreateItem(olMailItem)
           oEmail.Subject = myRecip.Name
           'oEmail.Body = newItem.Subject
           oEmail.Recipients.Add "Reminder"
           oEmail.Send

           mi.FlagStatus = olFlagMarked
           mi.FlagIcon = olGreenFlagIcon
           mi.Save
       End If
   Next

   Set oEmail = Nothing
   Set mi = Nothing
   Set f = Nothing

End Sub

Hope this works
Pedro