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:
00965241
Views:
12
A delivery status notification is special type of message which can be requested and returned as specified in RFC 1894 http://www.faqs.org/rfcs/rfc1894.html. Keep in mind that most gateways ignore request for "on succees" confirmation.

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