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 ENDDEFINEI'm using Windows 2000 pro and Outlook 2000, now SR1a.