>> IF ThisForm.chkComments.Value >> .MsgNoteText = "Add your comments then press Send" >> .Send(.T.) >> ELSE >> .MsgNoteText = "See Attached Error File" >> .Send(.F.) >> ENDIF >> ** Gotta Figure out how to tell if sucessfull! >> lnAnswer = MESSAGEBOX("The Error File was sucessfully e-mailed."; >> +CHR(13)+"It is not needed by the system any more."; >> +CHR(13)+"Do you want to DELETE it now?",; >> 32+0+4,"System Message") >> IF lnAnswer = 6 AND FILE((lcAppDir + "\PjtManEr.txt")) >> DELETE FILE (lcAppDir + "\PjtManEr.txt") RECYCLE >> ENDIF