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

Vista:
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:

Email por Outlook Express

Autor:Liliana Pacheco (5 intervenciones)
Fecha: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......
Responder
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:Email por Outlook Express

Autor:RafaNet (2 intervenciones)
Fecha: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
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:Email por Outlook Express

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

RE:Email por Outlook Express

Autor:Liliana Pacheco (5 intervenciones)
Fecha: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.
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:Email por Outlook Express

Autor:leonel (1 intervención)
Fecha: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 = ?.
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:Email por Outlook Express

Autor:Jose Ramirez jose.ramirez.oliva@gmail.com (8 intervenciones)
Fecha: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 = ?.
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:Email por Outlook Express

Autor:Rayne Flores raflores@gruposerex.com (3 intervenciones)
Fecha:29/11/2013 15:09:16
Excelente aporte... funciona 100%
Comentar