Power Builder - Email con outlook

 
Vista:

Email con outlook

Publicado por gloria (61 intervenciones) el 02/09/2002 18:52:52
Hola les agradeceria me ayudaran. Quiero abrir el outlook haciendolo visible con la direccion web que marca el textbox del datawindow.
Probé con esto peró no me funciona:
oleobject outlook, item
outlook = create oleobject

outlook.connecttonewobject("outlook.application")
item = outlook.createitem(0)
item.to = dw.object.prove_promail[row]
outlook.disconnectobject()
destroy outlook
destroy item
Alguna sugerencia?
Gracias
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

Parte 1

Publicado por Jorge Luis Reinoso (91 intervenciones) el 03/09/2002 23:58:18
Parte 1
Si entiendo tu inquietud quieres enviar correo electrónico desde tu pantalla de Power, mediante Outlook, tengo unas líneas de código que te pueden ayudar
INT li, i
STRING ls_direccion

// Crea la sesión mail
mSes = create mailSession
// Ingresa a la sesión
mRet = mSes.mailLogon(mailNewSession!)
IF mRet <> mailReturnSuccess! THEN
MessageBox("Atención", 'Inicio de sesión ha fallado.')
RETURN
END IF
// desde aquí vamos a escojer un archivo adjunto, esto lo puedes ubicar en otro botón
// archivo adjunto
string docname, named
integer value

value = GetFileOpenName("Seleccione Archivo Adjunto", &
+ docname, named, "Adjuntar", &
"Todos los Archivos (*.*),*.*")
IF value = 0 or value = -1 THEN
RETURN
END IF
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

parte 2

Publicado por Jorge Luis Reinoso (91 intervenciones) el 04/09/2002 00:04:05
parte 2
mAttach.Pathname = docname
mMsg.AttachmentFile[1] = mAttach
// hasta aquí vamos a escojer un archivo adjunto, esto lo puedes ubicar en otro botón
// Contruye la estructura del mensaje
// destinatarios
mMsg.AttachmentFile[1] = mAttach // archivo adjunto
mMsg.Recipient[1].name = '[email protected]' // aquí puedes recuperar de una línea de texto
// asunto o título del correo
mMsg.Subject = 'Aquí va el títuo' // también puedes usar una línea de texto
// fin asunto
// mensaje
mMsg.NoteText = 'aquí va todo el cuerpo del mensaje, es recomendable usar un multiple line edit'
// fin mensaje
// envía el correo
mSes.mailSend(mMsg)
// fin envía el correo
IF mRet <> mailReturnSuccess! THEN
MessageBox("Atención", 'El mensaje no ha sido enviado') // este mensaje lo ves si no se emvió en mensaje
RETURN
END IF
mSes.mailLogoff()
DESTROY mSes // finaliza la sesión outlook
desarrollé una aplicación de manejo de personal y en un proceso envía mensajes mediante Email a los trabajadores, y funciona muy bien enviando a cien personas instantáneamente.

debes tratar de unir las dos partes de preferencia en un botón de una
ventana, para que puedas diferenciar el código de los comentarios

Si no entiendes el código me indicas para enviarte una librería con este código.
Adiós
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