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