Power Builder - powerbuilder y lotus notes

 
Vista:

powerbuilder y lotus notes

Publicado por Pablo (12 intervenciones) el 30/12/2002 16:16:15
Hola a todos !!!
Tengo que programar una interfaz desde powerbuilder para recibir y enviar mail a través lotus notes. Por favor si alguien me puede dar una mano y decirme donde puedo conseguir algún ejemplo o mandarme alguna información o material se los agradecería.

Muchas 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

RE:powerbuilder y lotus notes

Publicado por Jorge Luis (91 intervenciones) el 30/12/2002 20:45:45
Saludos:
Este código fue probado para enviar mensajes en lotus notes, espero te ayude:
Parte 1
string mailprogram
int rc, hndl
time starttime
SetPointer(HourGlass!)
mailprogram = ProfileString("win.ini","LotusMail","Program","")
if mailprogram = "" THEN
Messagebox("Error","Lotus Notes no esta instalado",StopSign!)
Halt Close
END IF
hndl = OpenChannel("Notes","SendMail")
if hndl < 1 then
run(mailprogram, minimized!)
starttime = Now()
DO
Yield()
hndl = openchannel("wmail","Sendmail")
if hndl > 0 then exit
LOOP UNTIL SecondsAfter(StartTime, Now()) > 15
if hndl < 1 then
messagebox("Error", "No puedo arrancar Lotus Notes. Arranque el programa y teclee el password de Notes.", StopSign!)
setpointer(Arrow!)
return
//Continua...
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:powerbuilder y lotus notes

Publicado por Jorge Luis (91 intervenciones) el 30/12/2002 22:42:54
//Parte 2
end if
end if
rc = ExecRemote("NewMessage", hndl)
// Solo deben ejecutarse las variables que contengan algun texto. En caso contrario, LotusNotes da error
rc = ExecRemote("To " + sle_to.text, hndl) // Login del usuario destino o direccion e-mail internet, pueden añadirse mas
// separando los campos con comas
rc = ExecRemote("CC " + sle_cc.text, hndl) // Igual que anterior
rc = ExecRemote("Subject " + sle_subject.text, hndl) // Texto (Asunto del mensaje)
rc = ExecRemote("Text " + mle_1.text, hndl) // Texto (Cuerpo del mensaje)
rc = ExecRemote("AttachFile " + sle_attach.text, hndl) // path del fichero a anexar
rc = ExecRemote("Send", hndl)
rc = CloseChannel(hndl)
SetPointer(Arrow!)

Saludos desde Quito-Ecuador.
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