Faxing Question

[Keith Hubert]

Can Alpha be set to send mutiple Faxes the same as you can with NetMailer?

Keith Hubert
Guild Member
London.

[Tom Cone Jr]

RE: Faxing Question

Alpha Four is available with a faxing module, but I don't have experience using it.

I think Alpha Five users employ a 3rd party faxing enging (WinFax, etc.) and then print their reports to the fax driver.

-- tom

[John Lemisch]

RE: Faxing Question

Keith:
the fax program used determines the ability to send a single fax to multiple numbers. WinFax Pro allows this as does QL2Fax, Bitfax, etc.

[Keith Hubert]

RE: Faxing Question

Thanks for your answers, what I meant was, can I get Alpha to send using say Winfax for example, to 20 customers details of a special offer at the press of a button?

Keith Hubert
Guild Member
London.

[Tom Cone Jr]

RE: Faxing Question

Keith, I think this will depend on whether your third party fax engine can be driven like you want from its command line. There have been multiple threads discussing the interface between Alpha Five and WinFax. You might try searching for them here, in the A5V4 forum, in the Code Archive, and perhaps even at www.learn alpha.com.

In my own work I create temporary fax phone lists for Win Fax Pro to use when I need to send the same fax to a group of people. I empty the list, and then fill it with Alpha Five as needed. Alpha Five can then open WinFax but it would then be up to the user to specify which phone list to use. Not one button, but easily workable. As I say others may have better ideas for you, already posted.

-- tom

[John Lemisch]

RE: Faxing Question

Yes, Winfax Pro provides for that

[BRIAN GRAY]

RE: Faxing Question

Hello Keith ,


The code below I use to fax to restaurant for advertising purposes. I use it on a set one table holds the needed values ie.faxnumber etc. the other holds the date and time the fax was sent. I'm sure you can come up with something better if you do let me know.

Brian

'Date Created: 26-Nov-2003 04:12:48 PM
'Last Updated: 14-Dec-2003 08:04:00 AM
'Created By :
'Updated By :
tbl = Table.current()
tbl.fetch_first()
while .not. tbl.fetch_eof()
'Open the table that you want to update...
dim tbl1 as p
tbl1 = table.open("faxing ",FILE_RW_SHARED)

tbl1.enter_begin()
tbl1.FAXING_DATE_ = a5_eval_expression("=date()")
tbl1.FAXING_TIME = a5_eval_expression("=time(\"0h:0mAM\")")
tbl1.ADVERTISING_ID = a5_eval_expression("=Restaurant_Id")
tbl1.RESTAURANT = a5_eval_expression("=Restaurant")
tbl1.WAS_FAX_SUCCESSFUL = .T.
tbl1.enter_end(.t.)
tbl1.close()

'Set 'Value' property of multiple objects in Form 'Advertising' .
DIM form_name as c
if is_object(topparent.this) then
form_name = topparent.name()+".this"
else
form_name = ""
end if


DIM global vfaxno AS c
vfaxno = topparent:Fax_number.value
DIM global vname AS c
vname = topparent:Restaurant.value
DIM global vid AS c
vid = topparent:Restaurant_Id.value
Dim shared vcover as C
vcover = "N"

'Create a new variable called 'vreport_name' and set its value to '="Faxing Report"
dim Shared vreport_name AS C
vreport_name = convert_type(a5_eval_expression("=\"Fax letter\""),"C")
Fax_DDE_Fn(vfaxno,vname,vcover,vreport_name)


'Go to next record in current form at parent level.
topparent.fetch_next()
end while

[BRIAN GRAY]

RE: Faxing Question

Hello Keith ,


The code below I use to fax to restaurant for advertising purposes. I use it on a set one table holds the needed values ie.faxnumber etc. the other holds the date and time the fax was sent. I'm sure you can come up with something better if you do let me know.

Brian

'Date Created: 26-Nov-2003 04:12:48 PM
'Last Updated: 14-Dec-2003 08:04:00 AM
'Created By :
'Updated By :
tbl = Table.current()
tbl.fetch_first()
while .not. tbl.fetch_eof()
'Open the table that you want to update...
dim tbl1 as p
tbl1 = table.open("faxing ",FILE_RW_SHARED)

tbl1.enter_begin()
tbl1.FAXING_DATE_ = a5_eval_expression("=date()")
tbl1.FAXING_TIME = a5_eval_expression("=time(\"0h:0mAM\")")
tbl1.ADVERTISING_ID = a5_eval_expression("=Restaurant_Id")
tbl1.RESTAURANT = a5_eval_expression("=Restaurant")
tbl1.WAS_FAX_SUCCESSFUL = .T.
tbl1.enter_end(.t.)
tbl1.close()

'Set 'Value' property of multiple objects in Form 'Advertising' .
DIM form_name as c
if is_object(topparent.this) then
form_name = topparent.name()+".this"
else
form_name = ""
end if


DIM global vfaxno AS c
vfaxno = topparent:Fax_number.value
DIM global vname AS c
vname = topparent:Restaurant.value
DIM global vid AS c
vid = topparent:Restaurant_Id.value
Dim shared vcover as C
vcover = "N"

'Create a new variable called 'vreport_name' and set its value to '="Faxing Report"
dim Shared vreport_name AS C
vreport_name = convert_type(a5_eval_expression("=\"Fax letter\""),"C")
Fax_DDE_Fn(vfaxno,vname,vcover,vreport_name)


'Go to next record in current form at parent level.
topparent.fetch_next()
end while

[BRIAN GRAY]

RE: Faxing Question

Forgot to mention The code is attached to a button.
And I filter the form to the desired restaurants prior to running the script



Brian