ThisForm.MAPISession.SignOn lcAppDir = SYS(5)+SYS(2003) ThisForm.MAPISession.SignOn WITH ThisForm.MAPIMessage .SessionId = ThisForm.MAPISession.SessionId .Compose .RecipAddress = "thornton@semo.net" .MsgSubject = "Message from Project Manager" IF FILE((lcAppDir + "\PjtManEr.txt")) .AttachmentPathName = (lcAppDir + "\PjtManEr.txt") ENDIF 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 ENDWITH ThisForm.MAPISession.SignOff SET DEFAULT TO (lcAppDir)