>#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) >>>>>