Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
CDO Problems
Message
 
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Title:
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP1
Database:
Visual FoxPro
Miscellaneous
Thread ID:
00965235
Message ID:
00965238
Views:
12
This message has been marked as the solution to the initial question of the thread.
Bernhard,

The new line code (CR+LF ) is ignored by HTML. Use < br > tag (w/o spaces) instead.
.HTMLBody = "<br>" +   'You really should see this book.' + "<br>" +;
...
>
>I have 2 Problems with CDO COM.
>
>First le CARRIAGE RETURN don't function .
>Second The DSNoptions don't Returns a delivery status notification ....
>
>
>
> loMsg = CREATEOBJECT( 'CDO.Message' )
>
>  WITH loMsg
>    .TO = 'yourMail'
>    .CC = 'bouleaux@Amline.be'
>    .Subject = 'Great Job With VFP 8.0!'
>
>  *!*	cdoDSNDefault 		0 No delivery status notifications are issued.
>  *!*	cdoDSNNever 		1 No delivery status notifications are issued.
>  *!*	cdoDSNFailure 		2 Returns a delivery status notification if delivery fails.
>  *!*	cdoDSNSuccess 		4 Returns a delivery status notification if delivery succeeds.
>  *!*	cdoDSNDelay 		8 Returns a delivery status notification if delivery is delayed.
>  *!*	cdoDSNSuccessFailOrDelay 14 Returns a delivery status notification 
if delivery succeeds, fails, or is delayed.
>
>*-- It don't Returns a delivery status
>.DSNoptions = 14
>
>    *** Sending a web page in the body of the message
>*** Change the html page if necessary....
>    cFile  = SYS(5) + CURDIR() + "Lierre.htm"
>
>    IF FILE( cFile )
>      .CreateMHTMLBody( 'file:'+ cFile ) && 'file:C:\cdbk70\amline\Lierre.htm'
>    ENDIF
>
> *** Add any message text to the beginning of the body
>    .HTMLBody = chr(13)+chr(10)+   'You really should see this book.'+chr(13)+chr(10)+;
> 'It gives you 1002 ways to extend VFP including how to send mail using CDO.' +  .HTMLBody
>
>    *** Now add an attachment
>    * .AddAttachment( "c:\aco.jpg")
>    * .AddAttachment( "c:\exportexcel.xls" )
>
>    *** And send it off
>
>    lnretval = .SEND()
>
>
--sb--
Previous
Reply
Map
View

Click here to load this message in the networking platform