I'm trying to send faxes from VFP 6 with only the quick coverpage. But I don't see a way to do this. I don't know why the send(0) doensn't do anything.

Here is the Code:

ofax = NEWOBJECT("winfax.sdksend")
lnReturn=ofax.SetClientID("CLIENTID")
lnReturn=ofax.ResetGeneralSettings()
lnReturn=ofax.EnableBillingCodeKeywords(1)
lnReturn=ofax.SetBillingCode("BILLINGCODE")
lnReturn=ofax.SetKeywords("KEYWORDS")
lnReturn=ofax.SetQuickCover(1)
lnReturn=ofax.SetUseCover(1)
lnReturn=ofax.SetTo("SETTO")
lnReturn=ofax.SetCompany("COMPANY")
lnReturn=ofax.SetNumber("1234567890")
lnReturn=ofax.SetSubject("SUBJECT")
lnReturn=ofax.SetCoverText("COVERTEXT")
lnReturn=ofax.ShowSendScreen(0)
lnReturn=ofax.ShowCallProgress(0)
lnReturn=ofax.SetPrintFromApp(0)
lnReturn=ofax.AddRecipient()
IF lnReturn=0
lnReturn=ofax.SEND(0)
lnReturn=ofax.LeaveRunning()
lnReturn=ofax.Done()
ENDIF
RELEASE ofax


Also when I try to fax a 2 pages fax, the cover page appears blank with the "cover text" string on it.

Here is the code:

ofax = NEWOBJECT("winfax.sdksend")
lnReturn=ofax.SetClientID("CLIENTID")
lnReturn=ofax.ResetGeneralSettings()
lnReturn=ofax.EnableBillingCodeKeywords(1)
lnReturn=ofax.SetBillingCode("BILLINGCODE")
lnReturn=ofax.SetKeywords("KEYWORDS")
lnReturn=ofax.SetQuickCover(1)
lnReturn=ofax.SetUseCover(1)
lnReturn=ofax.SetTo("SETTO")
lnReturn=ofax.SetCompany("COMPANY")
lnReturn=ofax.SetNumber("1234567890")
lnReturn=ofax.SetSubject("SUBJECT")
lnReturn=ofax.SetCoverText("COVERTEXT")
lnReturn=ofax.ShowSendScreen(0)
lnReturn=ofax.ShowCallProgress(0)
lnReturn=ofax.SetPrintFromApp(1)
lnReturn=ofax.AddRecipient()
IF lnReturn=0
lnReturn=ofax.SEND(0)
REPORT FORM FaxForm NEXT 1 TO PRINTER NOCONSOLE
lnReturn=ofax.LeaveRunning()
lnReturn=ofax.Done()
ENDIF
RELEASE ofax

Thanks.