PROCEDURE SayErrFile cGenericMess="Errors Occured and Reported in I:\BBS\DATA\Error\ERR_RPT.TXT" IF cTYPE= "C" && If Testing @ 7,35 SAY "*" ENDIF IF nERRCNT > 0 loWSH=CreateObject("Wscript.Shell") && Eliminate DOS Window Flash! loWSH.run("command /c net send YOURNETNAME &cGenericMess ",0,1) loWSH= NULL ... oApp=CreateObject("Outlook.Application") NameSpace= oApp.GetNameSpace("MAPI") MailItem = oApp.CreateItem(0) cAutoSubject= "Automatic Notification!" With MailItem .Subject = cAutoSubject .body= CHR(10)+" Today "+TTOC(DATETIME( ))+ CHR(10)+CHR(13); +cemailline1+ CHR(13); +cemailline2+ CHR(13); +cemailline3+ CHR(13); +cemailline4+ CHR(13); +cemailline5+ CHR(13); +cemailline6+ CHR(13); +cemailline7+ CHR(13) .Recipients.Add ("YOURNAME@DOMAIN.com") .sendImmediate notification occurs as long as the