VFP 愛用者社區

lcm · 註冊時間: 2004-12-27 文章: 45 第 1 樓

下列是我的程式碼，但卻一直不成功，請各位高手幫忙查看那裏有問題謝謝
winfax是10.0英文版。

procedure prn2winfax
para fax_company, fax_tel,fax_subject,fax_form
wait fax_comany +"傳真準備中....." window nowait
oWinFax = CreateObject("WinFax.SDKSend8.0")
oWinFax.SetSubject(fax_subject)
oWinFax.SetNumber(fax_tel)
oWinFax.SetAreaCode("")
oWinFax.SetCompany(fax_company)
oWinFax.AddRecipient()
oWinFax.SetPrintFromApp(1)
oWinFax.AddAttachmentFile("")
oWinFax.Send(0)
SET PRINT TO name WinFax
REPORT FORM &fax_form &prn_fstr TO PRINT &previewstr NOCONSOLE
RELEASE oWinFax
set print to default

garfield · 發表於: 星期六五月 21, 2005 7:11 am 文章主題:

試看看這一篇文章所說的方法:
http://www.leafe.com/archives/showMsg/16893

marvin · 註冊時間: 2004-06-01 文章: 321 第 3 樓

1. 先檢查 oWinFax 有否成功建立

2. 建立後即加入 oWinFax.setclientid('XYZ'), XYZ為任何字

3. WinFax SDK極不隱定, 可以的話讓user用printer的方式印出.

小賴 · 註冊時間: 2004-12-27 文章: 470 第 4 樓

也可考慮中華電訊的HinetFax
有提供FaxClientXControl.ocx 於VFP內使用沒問題

http://hinetfax.hinet.net

spfrk · 註冊時間: 2004-11-08 文章: 161 第 5 樓

*/ 這樣使用保證成功, 我就是這樣用的

http://www.leafe.com/archives/showMsg/16893 太複雜了, 試試我的方法

jFax('12345678') && 先通知 winfax

set devi to printer
set printer to NAME WinFax

@ 0,0 say 'Hi this fax test'
set printer to
set devi to screen
retu .Y.

*///
*/
*///
func jFax
para vfax
local vFaxChan, vRetVar, vreci

set mark to '/'
set date to AMERICAN
SET CENT OFF
vreci = 'recipient("' + trim(vfax)+ '","' + time(vfax) +'","'+ dtoc(date()) + '")'
set mark to '.'
set date to TAIWAN
SET CENT ON

vFaxChan = DDEInitiate("FAXMNG32","CONTROL")
if vFaxChan = -1
sure('無法建立傳真通道')
retu .F.
endif

vRetVar = DDEExecute(vFaxChan,"GoIdle")
vFaxChan = DDEInitiate("FAXMNG32","TRANSMIT")
vRetVar = DDEPoke(vFaxChan,"sendfax", vreci)
vRetVar = DDEPoke(vFaxChan,"sendfax", 'resolution("HIGH")')
vRetVar = DDEExecute(vFaxChan,"GoActive")
vRetVar = DDEPoke(vFaxChan,"sendfax", 'showsendscreen("0")')
vRetVar = DDEPoke(vFaxChan,"sendfax", "SenFaxUI")
&& if file('SndBak.Msg')
&& vRetvar = DDEPoke(vFaxChan,"sendfax", 'attach("C:\WJM\SndBak.Msg")')
&& endif
vRetVar = DDETerminate(vFaxChan)
retu .T.

林永強 · 註冊時間: 2005-06-21 文章: 12 來自: HONG KONG 第 6 樓

ckp6250 · 註冊時間: 2004-07-30 文章: 1644 第 7 樓

小弟還是主張,,直接用 XP 的內建 Fax , 至於不是 XP 的,,就叫它改用 xp

林永強 · 發表於: 星期二五月 15, 2007 1:13 am 文章主題:

轉用XP內建的FAX不失為一好意, 不過可否提供多些資料.

1. FAX內的通訊錄, 其檔名及存放位置為何, 以便將客戶檔(.DBF)匯入
2. 如何將VFP 所產生的 REPORT和收件人傅真號碼, 日期時間等資料一同送至FAX備用.
3. 在程式上應注意什麼, 例如: 如何CALL FAX FUNCTION, 如何傳入參數(傳送人公司名, 收件人公司, 收件人傳真號碼, 指定傀送日期及時間)

謝謝!!!!

garfield · 發表於: 星期二五月 15, 2007 8:14 pm 文章主題:

使用 xp 內建的 fax 請參考:
http://vfp.sunyear.com.tw/viewtopic.php?t=3508

林永強 · 發表於: 星期三五月 16, 2007 1:47 am 文章主題:

樓上的 prt2wfax 有誤,

現更正如下

FUNCTION prt2wfax
PARAMETERS faxfile, tofaxno, outtime, outdate, outsnamc, outconame
*** =prt2wfax(報表名稱, 電話號碼, 傳真時間, 傳真日期, 公司(簡稱), 公司)
*** 其餘傳真前預覽或其它設定請參考WINfAX
=DDESETOPTION("safety",.F.)
faxchan = DDEINITIATE("faxmng32","control")
=DDESETOPTION("safety",.T.)
IF faxchan = -1
=DDETERMINATE(faxchan)
MESSAGEBOX('無法找到 WINFAX 傳真程式 faxmng32, 現中止工作 !!','注意訊息')
SELECT 1
GO BOTTOM
RETURN .F.
ENDIF
retvar = DDEEXECUTE(faxchan,"goidle")
faxchan = DDEINITIATE("faxmng32","transmit")
retvar = DDEPOKE(faxchan,"sendfax",;
'recipient("&tofaxno","&outtime","&outdate","&outsnamc", "&outconame","","","","fax")') && 此行的單引號與雙引號不能對調
retvar = DDEPOKE(faxchan,"sendfax","reoslution('high')")
retvar = DDEEXECUTE(faxchan,"GoActive")
REPORT FORM &faxfile NOCONSOLE TO PRINTER
retvar = DDEPOKE(faxchan,"sendfax","SendFax")
retvar = DDETERMINATE(faxchan)
RETURN .T.
ENDFUNC

林永強 · 註冊時間: 2005-06-21 文章: 12 來自: HONG KONG 第 11 樓