oApp=CreateObject("Outlook.Application") NameSpace= oApp.GetNameSpace("MAPI") MailItem = oApp.CreateItem(0) With MailItem .Subject = "Path not found Notification!" .body= CHR(10)+" Today "+TTOC(DATETIME( ))+ CHR(10)+CHR(13); +cemailline1+ CHR(13); +"Error Count "+AllTrim(Str(nERRCNT))+ CHR(13); +"ISub Value "+AllTrim(Str(iSub))+ CHR(13); +"File Handle #"+AllTrim(Str(gnFile))+ CHR(13); +"Program ID "+ cSys16+ CHR(13); +"Origin (Path)"+cWhereAt+ CHR(13); +"Origin Dir "+cMedSearch+ CHR(13); +"Destination "+cDestFolder+ CHR(13); +"Destination Dir "+cDestDirect+ CHR(13); +"File Extension "+cFileExt+ CHR(13); +"Error Message "+gERRMESS+ CHR(13); +"Procedure Location "+SYS(5)+SYS(2003)+ CHR(13) .Recipients.Add ("me@abc.com") .Send EndWith NameSpace.Logoff