Power Builder - ENVIO POR FAX

 
Vista:

ENVIO POR FAX

Publicado por JOSE (9 intervenciones) el 10/09/2003 20:51:07
HOLA A TODOS
PODRIAN DECIRME COMO PUEDO ENVIAR UN REPORTE O UN DW POR FAX DIRECTAMENTE SIN USAR EL ASISTENTE DE FAX DE WINDOWS 2000
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:ENVIO POR FAX

Publicado por Ricardo (1957 intervenciones) el 11/09/2003 00:38:14
Envia un pdf (en este ejemplo) por fax:

// VARIABLES LOCALES
integer li_rc
OLEObject objWinfaxSend

// CREAR Y CONECTAR AL OBJETO FAX
objWinfaxSend = CREATE OLEObject
li_rc = objWinfaxSend.ConnectToNewObject( "WinFax.SDKSend8.0" )

// CONFIGURACIÓN DEL OBJETO DE ENVIO DE FAX
li_rc = objWinfaxSend.LeaveRunning()
li_rc = objWinfaxSend.SetDeleteAfterSend( 1 )

// AÑADIR FICHEROS ADJUNTOS
// ( ESTO LO REALIZARÁ LA APLICACIÓN FUENTE, POR EJEMPLO ADOBE PDF WRITER )
li_rc = objWinfaxSend.AddAttachmentFile( as_attachment_path + as_attachment_file )

// CONFIGURACION DE LA PORTADA DEL FAX
li_rc = objWinfaxSend.SetUseCover( 1 )
li_rc = objWinfaxSend.SetQuickCover ( 1 )
li_rc = objWinfaxSend.SetSubject ( as_subject )
li_rc = objWinfaxSend.SetCoverText ( as_bodytext )

//CONFIGURACION DEL OBJETO RECEPTOR
// ( PUT DO LOOP HERE IF BROADCASTING TO MANY PARTIES )
li_rc = objWinfaxSend.SetTo ( as_to_name )
li_rc = objWinfaxSend.SetNumber ( as_to_address )
li_rc = objWinfaxSend.SetCompany ( as_to_organization )
li_rc = objWinfaxSend.AddRecipient()

// TERMINAR LA TRANSMISION POR FAX
li_rc = objWinfaxSend.Send(0)
objWinfaxSend.Done ( )

// DESCONEXION
objWinfaxSend.DisconnectObject ( )
DESTROY objWinfaxSend
SETNULL( objWinfaxSend )

RETURN li_rc
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:ENVIO POR FAX

Publicado por Pablo Ballistreri (1 intervención) el 06/03/2012 17:54:34
Estoy teniendo problemas al conectarme al WinFax, retorna -2, por lo cual no encentra el ClassName.

Sinceramente no se que quiere decir eso.

Agradecería una ayuda, estoy trabado con esto.

Gracias

Pablo
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