>PUBLIC goVFPCOM, goOutlook, goLink, goSpace, goInbox > >goVFPCOM = CREATEOBJECT( "VFPCOM.COMUTIL" ) >goOutlook = CREATEOBJECT( "Outlook.Application" ) >goLink = CREATEOBJECT( "OutlookApplicationEvents" ) >goVFPCOM.BindEvents( goOutlook, goLink ) >goSpace = goOutlook.GetNameSpace( 'MAPI' ) >goInbox = goSpace.GetDefaultFolder( 6 ) && The default Inbox folder > >DEFINE CLASS OutlookApplicationEvents AS custom > > PROCEDURE ItemSend( Item, Cancel ) > * Add user code here > ENDPROC > > PROCEDURE NewMail > > FOR EACH loMsg IN goInbox.Items > IF loMsg.Unread > MESSAGEBOX( "FROM: " + loMsg.SenderName + CHR( 13 ) + ; > "SUBJECT: " + loMsg.Subject, 0, "NEW MAIL" ) > ENDIF > ENDFOR > > ENDPROC > > PROCEDURE OptionsPagesAdd( Pages ) > * Add user code here > ENDPROC > > PROCEDURE Quit > goOutlook = NULL > goLink = NULL > goVFPCOM = NULL > goSpace = NULL > goInbox = NULL > ENDPROC > > PROCEDURE Reminder( Item ) > * Add user code here > ENDPROC > > PROCEDURE Startup > * Add user code here > ENDPROC > >ENDDEFINE >>