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