Why does this VFP code not send a fax properly via Winfax Pro?

Hi,

I have Winfaxpro and am using this code to send a sample fax. However, as
soon as I run it, it brings up the Winfax pro dialog box with blank fields
and wants me to enter the fax #, etc. Can someone tell me what I am doing
wrong?

Thanks

---- Code ----

oWinFax = CreateObject("WinFax.SDKSend") &&Create instance of Winfax
oWinFax.SetSubject("Test Fax")
oWinFax.SetNumber("5551212") &&Fax Number of recipient
oWinFax.SetAreaCode("") &&Area Code of recipient
oWinFax.SetCompany("Some Company")
oWinFax.AddRecipient() && Required
oWinFax.SetPrintFromApp(1)
oWinFax.AddAttachmentFile("")
oWinFax.Send(1)

SET PRINTER TO NAME Winfax
set print on
?"this is a test"
set print off

SET PRINTER TO LPT1:

RELEASE oWinFax

Man-wai
Tue Apr 03 08:56:20 CDT 2007

Zoom wrote:
> Hi,
>
> I have Winfaxpro and am using this code to send a sample fax. However, as
> soon as I run it, it brings up the Winfax pro dialog box with blank fields
> and wants me to enter the fax #, etc. Can someone tell me what I am doing
> wrong?

why not email WinFax's tech support?

--
.~. Might, Courage, Vision, SINCERITY. http://www.linux-sxs.org
/ v \ Simplicity is Beauty! May the Force and Farce be with you!
/( _ )\ (Ubuntu 6.10) Linux 2.6.20.4
^ ^ 21:55:01 up 10 days 9:07 0 users load average: 1.03 1.03 1.00
news://news.3home.net news://news.hkpcug.org news://news.newsgroup.com.hk

Paul
Tue Apr 03 12:27:21 CDT 2007

It's been a while, so I'm not sure about this, but try adding this:

oWinFax.ShowSendScreen(0)



"Zoom" <keashdoc@hotmail.com> wrote in message
news:HKKdnegRzuUxOYzbnZ2dnUVZ_hCdnZ2d@comcast.com...
> Hi,
>
> I have Winfaxpro and am using this code to send a sample fax. However, as
> soon as I run it, it brings up the Winfax pro dialog box with blank fields
> and wants me to enter the fax #, etc. Can someone tell me what I am doing
> wrong?
>
> Thanks
>
> ---- Code ----
>
> oWinFax = CreateObject("WinFax.SDKSend") &&Create instance of Winfax
> oWinFax.SetSubject("Test Fax")
> oWinFax.SetNumber("5551212") &&Fax Number of recipient
> oWinFax.SetAreaCode("") &&Area Code of recipient
> oWinFax.SetCompany("Some Company")
> oWinFax.AddRecipient() && Required
> oWinFax.SetPrintFromApp(1)
> oWinFax.AddAttachmentFile("")
> oWinFax.Send(1)
>
> SET PRINTER TO NAME Winfax
> set print on
> ?"this is a test"
> set print off
>
> SET PRINTER TO LPT1:
>
> RELEASE oWinFax
>
>
>