#DEFINE VFPCOM_CLSID 'VFPCOM.COMUTIL' #DEFINE OUTLOOK_CLSID 'OUTLOOK.APPLICATION' public goVFPCOM, goOutlook, goLink goVFPCOM = create(VFPCOM_CLSID) goOutlook = create(OUTLOOK_CLSID) goLink = create('OutlookApplicationEvents') goVFPCOM.BindEvents(goOutlook, goLink) DEFINE CLASS OutlookApplicationEvents AS custom PROCEDURE ItemSend(Item,Cancel) ENDPROC PROCEDURE NewMail MessageBox('New Mail Has Arrived') ENDPROC PROCEDURE OptionsPagesAdd(Pages) ENDPROC PROCEDURE Quit ENDPROC PROCEDURE Reminder(Item) ENDPROC PROCEDURE Startup ENDPROC ENDDEFINE>Hi friends,