OLEObject olApp,olMail
Long ret
olApp = Create OLEObject
ret = olApp.ConnectToNewObject( "Outlook.Application" )
if ret=0 then
olMail = olApp.CreateItem(0)
olMail.To = "destino@servidorcorreo.com"
olMail.Subject = "Asunto"
olMail.BodyFormat = 2 //HTML
olMail.HTMLbody = "<strong>Mensaje<strong>"
olMail.Display //Mostrar ventana
end if