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