Progress - Email por Outlook Express

Hola tengo que enviar una informacion via email desde progress pero debe usar el Outlook Express utilizando los codigos de envio por outlook no me funciona...

Porfa ayudenme que lo necesito urgente......

Gracias de antemano......

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

hola vi tu codigo pero no me funciona me podrias dar mas detalles de que esta haciendo.?? saludos

Hola,

Gracias por el codigo pero sigo con el mismo problema sale por el outlook y necesito que salga por el Outlook Express

Si saben como hacerlo, espero me comenten.

Gracias.

DEFINE VARIABLE chMailApp AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE chMailItem AS COM-HANDLE NO-UNDO.
/* create handle to CRAXDRT */
CREATE "Outlook.Application" chMailApp NO-ERROR.

chMailItem = chMailApp:createItem(0).

chMailItem:TO = "[email protected]".
chMailItem:Subject = "Saludos desde progress".
chMailItem:body = "mandando saludos desde progress...".
chMailItem:SEND .

chMailItem = ?.
chMailApp = ?.

Hola mira a mi si me funciono y le hice algunos cambios, espero que te funcione, lo que no he podido y estoy buscando es poder enviar un archivo adjunto. Si alguien sabe por favor pase la forma.

DEFINE VAR v-nombre LIKE empleado.nombre.
DEFINE VAR chMailApp AS COM-HANDLE NO-UNDO.
DEFINE VAR chMailItem AS COM-HANDLE NO-UNDO.

ASSING v-nombre = "Jose Ramirez".

CREATE "Outlook.Application" chMailApp NO-ERROR.
chMailItem = chMailApp:createItem(0).
chMailItem:TO = "[email protected]".
chMailItem:Subject =
"Entrada al Sistema Progress v.9 a las " +
STRING(TIME, "HH:MM AM") + " por " + v-nombre.
chMailItem:body =
"Muestra la hora y nombre del empleado que acceso al sistema informatico".

chMailItem:SEND .
chMailItem = ?.
chMailApp = ?.

EXCELENTE BUENAS NOCHES DESDE MEXICO CDMX (17/10/22 11:00:00 PM

GRACIAS POR EL TIP, EJECUTA MUY BIEN EN OUTLOOK.

SALUDOS.

Excelente aporte... funciona 100%