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:
01319587
Views:
19
I think that should be [
], at least that's what works for me.

John

>PMFJI, but to get a hard return in HTML, use the string:
>
>CRLF = [
]
>
>Paragraph endings should use the following:
>
>PARA = [

]
>
>>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
>>
>>
>>>You have to urlencode CR and LF. See correction inline.
>>>
>>>>I'm using the shellexecute to launch the email client and send the subject and body text.
>>>
>>>>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)
>>>
>>>>
>>>>
>>>>The only problem I'm having is that all the returns are stripped out of the body when the text comes into the email client. Any ideas on how to preserve the returns in the edit box when the text comes over to the email?
John Harvey
Shelbynet.com

"I'm addicted to placebos. I could quit, but it wouldn't matter." Stephen Wright
Previous
Reply
Map
View

Click here to load this message in the networking platform