>I have a little program that I wrote to emulate (for Outlook 2002) the way that Outlook 2003 pops up a message window when a new email arrives.
>
>Everything works, except that after the first message is displayed, the program ends ... like it thinks it's done reading events. The only clear events I have is in the IconDblClickEvent of the Systray object.
>
>Any ideas? Do I need to put a do ... while loop around the read events command that says something like: do while type(loSysTray.TipText)=="C"? If so, I'm still curious as to why READ EVENTS stops "reading". Thanks for any advice!
>
>Here is the code:
>
>

>LOCAL loSysTray as Object, loObj as Object, loEvents as Object
>
>* MySysTray is class defined as systray of systray.vcx
>loSysTray = CREATEOBJECT("mySysTray")
>
>IF !TYPE("loSysTray.TipText") == "U"
>   loObj = CREATEOBJECT("Outlook.Application")
>   loEvents = CREATEOBJECT("OAEvents")
>
>   EVENTHANDLER(loObj,loEvents)
>
>   READ events
>
>   RELEASE loSysTray
>   RELEASE oEvents
>ENDIF
>
>RETURN
>
>DEFINE CLASS OAEvents AS session OLEPUBLIC
>
>   IMPLEMENTS ApplicationEvents_10 IN "c:\progra~1\micros~2\office10\msoutl.olb"
>
>   PROCEDURE ApplicationEvents_10_NewMail() AS VOID
>   * add user code here
>      oApp = CREATEOBJECT("Outlook.Application")
>      IF oApp.Explorers.Count > 0
>         oSafeItem = CREATEOBJECT("Redemption.SafeMailItem")
>         oFolder = oApp.explorers.item(1).CurrentFolder
>         oSafeItem.Item = oFolder.Items(1)
>         DO FORM c:\foxtemp\newmail WITH oSafeItem.SenderName, oSafeItem.Subject
>         RELEASE oApp
>         RELEASE oSafeItem
>         RELEASE oFolder
>      ENDIF
>   ENDPROC
>ENDDEFINE
>

This is a SWAG, but maybe you could experiment with DOEVENTS, since you're working with Outlook and not just VFP.