Hola,
A ver si esto te sirve:
---------------------------------------------------------------------------------------------------
DEFINE VARIABLE hOutLook AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE hSesion AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE hMail AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE hSeguridad AS COM-HANDLE NO-UNDO.
/* Iniciar OutLook */
CREATE "Outlook.Application" hOutLook NO-ERROR.
/* Inicio de sesion */
CREATE "Outlook.NameSpace" hSesion NO-ERROR.
hSesion=hOutLook:GetNamespace("MAPI").
hSesion:Logon.
CREATE "Outlook.MailItem" hMail NO-ERROR.
hMail=hOutLook:CreateItem(0).
hMail:TO = "
[email protected]".
hMail:Subject = "Hola Prueba: " + STRING(TIME, "HH:MM:SS").
hMail:Body = "Mensajeeee".
hMail:SEND.
hSesion:Logoff.
RELEASE OBJECT hOutLook.
RELEASE OBJECT hSesion.
RELEASE OBJECT hMail.
--------------------------------------------------------------------------------------------------------
Un saludo