Faxing or Emailing a Foxpro report

[exodus1]

I purchased Faxman Jr. to be able to fax a Foxpro report, but I realized that it's using 'object oriented'. My program is not really using classes and objects. Can anybody tell me if they used this package and explain in as simple as possible way how? I am not really an object oriented programmer.

Thank You

 

[rgbean]

If they provide any sample code (VB or C++), maybe you could post that, and someone could "translate" it to VFP for you.

Rick

 

[Guest_imported]

Hi exodus1,

Are you using old foxpro language like

set printer to .....
.......
@ x, y say .......
.......
set printer to

procedural programming? I am and using winfax as the
fax machine. If faxman supports DDE clients/servers, you
can achieve what you are expecting. We have to send some
30 to 50 fax everyday and now instead of printing the orders
on paper and having a dedicated 'faxer' to serve the
traditional fax machine, I can set the fax thru my programs.
(I am trying on the e-mail stuff now but not yet successful)

 

[exodus1]

Thanx Everybody!

I am creating a Visual Foxpro report. What I am looking for is if anyone ever actuallly used this product, or if anyone knows of a similar product or if you have any suggestions of how I can master the OOP's aspect of VFP. I am not really sure what "DDE clients/servers" means.

Thanx Again

 

[generlam]

If you're interested in e-mailing a report, try blat. You can find it at

http://gepasi.dbs.aber.ac.uk/softw/Blat.html

. It is a simple dos command you can run with !run. The documentation will explain how to direct the e-mail to a recipient, to display the sender, add a subject line, attachment etc.

It is so easy, and it is freeware.

I'm using Frx2wrd to convert my reports to Word and then sending it via blat.

 

[Guest_imported]

exodus1

These code may save you some time

set printer to name &gg_p_fax
x_no = fax_no
x_time = time()
x_date = left(dtoc(date()),6)+right(dtoc(date()),2)
FaxChan = DDEInitiate("FAXMNG32","CONTROL&quot
retvar = DDEExecute(FaxChan,"GoIdle&quot
FaxChan = DDEInitiate("FAXMNG32","TRANSMIT&quot
retvar=DDEPoke(FaxChan,"sendfax", ;
'recipient("&x_no","&x_time","&x_date"," "," "," "," "," "," &quot')

Your code to generate report

set printer to
retvar=DDEExecute(FaxChan,"GoActive&quot
retvar=DDEPoke(FaxChan,"sendfax","SendFaxUI&quot
retvar=DDETerminate(FaxChan)