En este grupo En todos

Foro de PowerBuilder



Enviar email desde power builder

Escrito por Diter
el 12/10/2005

Alguien sabe como poder enviar email desde power builder? Ejemplo

Tengo un dw con una lista de persona a las cuales quiero enviarlos un correo a cada uno d eellos como hacer.

Gracias de antemano

Escrito por Walter Omar
el 04/05/2006
Hola, quiero saber si cuando creo un reporte igual a un formato que tengo fisicamente, pero al imprimir solo quiero que imprima los datos i que el reporte visto solo sea como una plantilla al imprimir el mismo formato ya elbaorado, nose si es posible....
Escrito por Sergio
el 23/05/2006
Hola amigos podria ayudarme? Necesito saber como capturar datos desde el puerto serial de la PC, para procesarlos luego es decir , capturar los datos que envia un surtidor de combustible, datos como cantidad despachada, litros vendidos, precio etc. Tambien que hardware se requiere para chupar los datos  enviarlos al puerto sarial. Desde ya muchas gracias!
Escrito por Oscar Arias E.
el 02/09/2006
Buenas Si es q por favor alguien me puede ayudar con este tema que es recontra urgente Para mi se lo agradeceria infinitamente.... Gracias
Escrito por Mcp
el 16/09/2006
RE: ENVIAR CORREO EN POWER BUILDER por Devjoker
Respuesta recibida el [06/12/2005 12:51:31]

Lo mà ¡S fà ¡Cil es instalar algún tipo de componente SMTP. Lógicamente necesitas algún servidor de correo funcionando. Los hay de pago y gratuitos.

Yo suelo usar como servidor de correo  QK SMTP Server , es muy fà ¡Cil de usar.

Busca SMTP PowerBuilder en Google y tendras muchos componentes para enviar el mail, por ejemplo:

https://dropball.cs.emporia. Edu/dropballpages/About/dropballDetails/dropballDocumentation/ostrasoft/smtp. Html

Luego instala el componente de correo y crealo como cualquier objeto ActiveX o COM. Para usarlo el proveedor del componente suele tener ejemplos en su pà ¡Gina.

Saludos,
DJK

Escrito por Narda
el 15/12/2006

Hola,


Disculpa, te agradeceria muchimo me indiques si ya sabes como enviar mensajes a tu correo desde power builde. Lo que deseo es algo como que si se llena el campo estado de una tabla con un valor especifico inmediatamnete envie el correo. Por fis sabes como?'

Escrito por Raber
el 12/02/2007

Hola amigo buscando he llegado a tener el mismo problema que tu tienes.. 

No se si ya hayas encontrado la solución

Si la encontraste me avisas.

Sino podemos mirar en que nos ayudamos..


Tema: como recibir datos del puerto serial......


Saludos


David Luna Ramos
Licenciatura en ciencias de la computa...
Escrito por David Luna Ramos
el 17/02/2007

Se enviar informacion y recibir informacion por el serial es efectivo, comunicate conmigo y te mando el codigo y ayuda.

Aprovechando necesito enviar correo desde una aplciacion estoy investigando el componente smtp.

Aun no encuentro la manera si puedes ayduarme te lo agardecere

David Luna Ramos

Escrito por Emerita
el 24/07/2007

Podría alguien enviarme un correo con un ejemplo concreto de como se envía un correo desde Power Builder.

Es urgente. Gracias...

Ramses
Estado de México, Mé...
Escrito por Ramses
el 03/12/2007

Ok eske me gustaria que me pasaran un ejemplo de como se realiza un reporte de un cuento

Espero y sea pronto grasias


Kenia Pérez
Informatica ucr
Escrito por Kenia Pérez
el 01/02/2008
"Hola, quiero saber si cuando creo un reporte igual a un formato que tengo fisicamente, pero al imprimir solo quiero que imprima los datos i que el reporte visto solo sea como una plantilla al imprimir el mismo formato ya elbaorado, nose si es posible.... "
por walter omar (Mayo 2006)



Tal vez esto te pueda ayudar... 

//*****************************************************************************
String             ls_cadenaimpresion
Long               job
 
// Cadena de impresión,puede ir vacia, esto es para casos como
// cheques o distintas hojas con formatos especificos
Ls_cadenaimpresion = "C!"
 
//Setea la impresora
Job = PrintOpen()
// Envía el reporte que se generó y se le agrega la cadena de impresión
If trim(ls_cadenaimpresion) <> "" and not isnull(ls_cadenaimpresion) then
     if PrintSend(job,"~027" + ls_cadenaimpresion) <> 1 then 
          // Mensaje de error de que No se puede setear la impresora para el reporte
     end if  
end if
 
// Realiza la impresión del documento
// ads_reporteximprimir debe ser un datastore o datawindow
// que hayas cargado en algun momento antes de este codigo
// entonces en lugar de mostrarlo como datawindow al usuario
// lo mandas directo a la impresora
PrintDatawindow(job, ads_reporteximprimir)
 
//  Cierra la impresión
PrintClose(job)
//*************************************************************************************
 

Adrian Alvarez
Certificado univercidad autonoma de co...
Escrito por Adrian Alvarez
el 03/03/2008

Por favor es urgente, si tienen el codigo para enviar el correo.

Descripcion de mi problema: tengo una base de datos de clientes y estos tienen su cuenta de correo, pero se les quiere enviar informacion por medio del correo, que codigo tengo que emplear o componetes para poder enviarlo....... Me urge.....

Victor Edgardo
Perú, Perú
Escrito por Victor Edgardo
el 17/07/2008

ESTO TE PERMITE GRABAR UN DATA WINDOW COMO *. PDF

Y ADJUNTARLO AUN MENSAJE, PERO DEBES TENER TU OUTLOOCK BIEN CONFIGURADO.

El texto tiene algunas variables globales, rem plazalas por locales y correra bien, yo lo hice en power builder 9.0



String  ls_archivo
string ls_file
string  ls_path
integer  li_rc, li_guardo
integer li_ret
string ls_ret
string ls_imp

Ls_archivo = as_nombre_archivo


Dw_form. Accepttext()



//metodo Export. Pdf

dw_form.Object.DataWindow. Export.PDF.Method = XSLFOP!
dw_form.Object.DataWindow. Export.PDF.xslfop. Print="no"
li_ret = dw_form. SaveAs(ls_path, PDF! , true)


If li_ret = -1 then
 f_mensaje("ERR","ERROR! ","NO SE PUDO CREAR DOCUMENTO *. PDF")
 RETURN
end if


//// PARTE DE CORREO ELECTRONICO

MailSession mSes

MailReturnCode mRet

MailMessage mMsg

// Crea la Session

MSes = create mailSession

 

// Verifica la Session

MRet = mSes. MailLogon(mailNewSession!)

 

IF mRet <> mailReturnSuccess! THEN

    MessageBox("Mail", "Logon failed. ")

    RETURN

END IF

 

// Puebla la estructura del mensaje
// modificado por VVargas 12/marzo/08

If isnull(gs_asunto) or len(trim(gs_asunto)) = 0 then
 gs_asunto= "_"
end if

If isnull(gs_texto) or len(trim(gs_texto)) = 0 then
 gs_texto= "_"
end if


mMsg. Subject   = gs_asunto

MMsg. NoteText =  gs_texto

MRet = mSes. MailAddress ( mMsg )

//mMsg. AttachmentFile[ 1]. Pathname ="c: emporal. Pdf"


MMsg. AttachmentFile[ 1]. Pathname = ls_path

 
// Envia el correo

MRet = mSes. MailSend(mMsg)

IF mRet <> mailReturnSuccess! THEN

    MessageBox("Envío de Correo", "Correo no enviado")

             mSes. MailLogoff()

             DESTROY mSes

    RETURN

Else

            MessageBox("Envío de Correo", "Envío de Correo Satisfactorio")

END IF

 

MSes. MailLogoff()

//vvargas
// borrar variables de mensaje
setnull(gs_path)
setnull(gs_destino)
setnull(gs_asunto)
setnull(gs_texto)

DESTROY mSes