>#DEFINE CR CHR(13) >WITH oMailItem >.Subject = "Meeting next week" >.Body = "Just confirming our meeting on Tuesday at 3." + CR + ; >"Please bring ideas, as well as your notes from last year's event." >>
>DECLARE INTEGER ShellExecute ; >IN SHELL32.DLL ; >INTEGER nWinHandle,; >STRING cOperation,; >STRING cFileName,; >STRING cParameters,; >STRING cDirectory,; >INTEGER nShowWindow > >lcEmailAddress = ALLTRIM(fcsecure.sc_email) >lcSubject = "Ticker item question" >lcMessageBody = "(...comments, question, corrections here...)" + CR + ; > " Project name: "+ALLTRIM(jobs.jc_name) + CR + ; > " Project number: "+ALLTRIM(jobs.jc_task) + CR + ; > " Item description: "+ALLTRIM(v_ticklerpk.t_desc) + CR + ; > " Due Date: "+DTOC(v_ticklerpk.t_date) + CR + ; > " Copies: " +ALLTRIM(STR(v_ticklerpk.t_copies)) > >ShellExecute(0, "", "mailto:" + lcEmailAddress + "?Subject=" + lcSubject + ; > "&body=" + lcMessageBody, "", "", 1)>