>>loMsg = CREATEOBJECT( 'CDO.Message' ) >>With loMsg >> .FROM = "John Jones, Jr. <psystems@terra.com.br>" >> .TO = 'neumacastro@terra.com.br' >> .CC = 'neumacastro@terra.com.br' >> .Subject = 'Testes com o VFP 6.0!' >> .keywords = "nissi" >> .Sender = "psystems@terra.com.br" >> .DSNoptions = 1 >> cFile = "C:\Nissi\WebService\produtos.htm" >> If FILE( cFile ) >> .CreateMHTMLBody( 'file:'+ cFile ) >> Endif >> .HTMLBody = '<br>message title<br>'; >> + 'message title line 2<br>' + .HTMLBody >> >> lnretval = .SEND() >>Endwith >>