Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Progress - Email por Outlook Express

  Imprimir  
Vista:

Email por Outlook Express

Publicado por Liliana Pacheco (5 intervenciones) el 30/11/2007 15:27:04
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......
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Email por Outlook Express

Publicado por RafaNet (2 intervenciones) el 03/12/2007 18:49:24
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 = "destino@kk.com".
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Email por Outlook Express

Publicado por YURI ZARATE (4 intervenciones) el 03/12/2007 19:55:03
hola vi tu codigo pero no me funciona me podrias dar mas detalles de que esta haciendo.?? saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Email por Outlook Express

Publicado por Liliana Pacheco (5 intervenciones) el 03/12/2007 21:56:54
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Email por Outlook Express

Publicado por leonel (1 intervención) el 13/07/2010 21:40:51
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 = "leonel.cauich@gmail.com".
chMailItem:Subject = "Saludos desde progress".
chMailItem:body = "mandando saludos desde progress...".
chMailItem:SEND .

chMailItem = ?.
chMailApp = ?.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Email por Outlook Express

Publicado por Jose Ramirez jose.ramirez.oliva@gmail.com (8 intervenciones) el 13/05/2011 23:42:20
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 = "jramirez@xxxxxxxxx.com.mx".
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 = ?.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Email por Outlook Express

Publicado por Rayne Flores raflores@gruposerex.com (3 intervenciones) el 29/11/2013 15:09:16
Excelente aporte... funciona 100%
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar