Dovrei realizzare una applicazione per inviare Fax.
Non ho mai affrontato l'argomento.
Avete qualche consiglio da darmi?
Pier Luigi
Moderator: Enrico Maria Giordano
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" )
Return to All products support
Users browsing this forum: No registered users and 8 guests