Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Keeping returns in email
Message
General information
Forum:
Visual FoxPro
Category:
Internet applications
Miscellaneous
Thread ID:
00998431
Message ID:
01317372
Views:
19
I'm not familiar with Redemption.

>I have tried your suggestion, I have tried defining CrLf, nothing works.
>I am using the following code, any suggestions will be greatly appreciated;
>
>#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
>
>
--sb--
Previous
Reply
Map
View

Click here to load this message in the networking platform