>>#DEFINE CrLf Chr(13)+Chr(10) >>oOutLook = CREATEOBJECT("Outlook.Application") >>oSafeItem = CREATEOBJECT('Redemption.SafeMailItem') >>*open redemption >>oNameSpace = oOutLook.GetNameSpace('MAPI') >>oNameSpace.Logon >>oItem = oOutLook.createitem(0) && create new mail message >>oSafeItem.item = oItem && create safe item object >>lsBody = "This is so easy!!"+CrLf ; >> +"I have used similar code to create " ; >> +"this email without receiving the security warning" >>*may use if it works -> does not >>lsBody = strtran(lsBody, chr(13)+chr(10), "%0d%0a" ) && urlencode >>*!* lsBody = strtran(lsBody, chr(13), "%0d" ) >>*!* lsBody = strtran(lsBody, chr(10), "%0a" ) >>WITH oSafeItem >> *oSafeItem.to = "chuck.j.williams@dep.state.fl.us" >> * best to use recipients >> .recipients.ADD("chuck.j.williams@dep.state.fl.us") >> .recipients.ResolveAll >> .subject = ("This is security FREE email") >> .RTFBody= .RTFBody + lsBody >> .save() >> .send() >>ENDWITH >>>>
>>>>PARAMETERS lcSubject, lcMessagebody >>>>DECLARE INTEGER ShellExecute ; >>>> IN SHELL32.DLL ; >>>> INTEGER nWinHandle,; >>>> STRING cOperation,; >>>> STRING cFileName,; >>>> STRING cParameters,; >>>> STRING cDirectory,; >>>> INTEGER nShowWindow >>>> >>>>lcEmailAddress = warapprove.altname >>>> >>>*** >>>lcMessageBody = strtran(lcMessageBody, chr(13)+chr(10), "%0d%0a" >>>*** >>>>ShellExecute(0, "", "mailto:" + lcEmailAddress + "?Subject=" + lcSubject + ; >>>> "&body=" + lcMessageBody, "", "", 1) >>>>>>>