Page 1 of 1
Fax con Fivewin
Posted: Mon Jul 17, 2006 10:27 am
by Pier Luigi
Dovrei realizzare una applicazione per inviare Fax.
Non ho mai affrontato l'argomento.
Avete qualche consiglio da darmi?
Pier Luigi
Re: Fax con Fivewin
Posted: Mon Jul 17, 2006 11:32 am
by Enrico Maria Giordano
Ti posso aiutare se usi WinFax.
EMG
Re: Fax con Fivewin
Posted: Mon Jul 17, 2006 11:42 am
by Pier Luigi
Sì, sul computer ho installato WinFax.
Pier Luigi
Re: Fax con Fivewin
Posted: Mon Jul 17, 2006 11:47 am
by Enrico Maria Giordano
Code: Select all
FUNCTION SENDFAX( cFax, cDes, cOgg, cMsg )
LOCAL lOk := .F.
LOCAL oFax
BEGIN SEQUENCE
oFax = CREATEOBJECT( "WinFax.SDKSend" )
oFax:LeaveRunning()
IF oFax:SetTo( cDes ) = 1; BREAK; ENDIF
IF oFax:SetSubject( cOgg ) = 1; BREAK; ENDIF
IF oFax:SetCoverText( cMsg ) = 1; BREAK; ENDIF
IF oFax:SetNumber( cFax ) = 1; BREAK; ENDIF
IF oFax:AddRecipient() = 1; BREAK; ENDIF
IF oFax:Send( 0 ) = 1; BREAK; ENDIF
oFax:Done()
lOk = .T.
END SEQUENCE
RETURN lOk
EMG
Re: Fax con Fivewin
Posted: Mon Jul 17, 2006 11:58 am
by Pier Luigi
Il programma mi segnala
Error: Unresolved external '_HB_FUN_CREATEOBJECT' ...
Io uso Harbour e FW 2.5.
Pier Luigi
Re: Fax con Fivewin
Posted: Mon Jul 17, 2006 12:04 pm
by Enrico Maria Giordano
Allora sostituiscilo con
Code: Select all
oFax = TOleAuto():New( "WinFax.SDKSend" )
e linka la libreria hbole.lib.
EMG
Re: Fax con Fivewin
Posted: Mon Jul 17, 2006 1:05 pm
by Pier Luigi
Funziona alla grande!
Grazie EMG.
PS
Per curiosità : quale DLL di Winfax viene richiamata?
Re: Fax con Fivewin
Posted: Mon Jul 17, 2006 1:10 pm
by Enrico Maria Giordano
Non lo so, mi dispiace.
EMG