Fax con Fivewin
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Dovrei realizzare una applicazione per inviare Fax.
Non ho mai affrontato l'argomento.
Avete qualche consiglio da darmi?
Pier Luigi
Non ho mai affrontato l'argomento.
Avete qualche consiglio da darmi?
Pier Luigi
www.FiveTechSoft.com
https://forums.fivetechsupport.com/
https://forums.fivetechsupport.com/viewtopic.php?f=20&t=3601
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
oFax = TOleAuto():New( "WinFax.SDKSend" )