#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>You have to urlencode CR and LF. See correction inline.
>>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) >>>