Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
CDO Problems
Message
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Title:
CDO Problems
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP1
Database:
Visual FoxPro
Miscellaneous
Thread ID:
00965235
Message ID:
00965235
Views:
54
Hi all,

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()
Next
Reply
Map
View

Click here to load this message in the networking platform