VFP 愛用者社區

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

公司採購訂單一向由傳真通知廠商;此種多文多發
(一次傳送多封傳真且每張傳真內容不同)的方式
一般市面傳真軟體似乎難以滿足我們的需求
最近於中華電訊網站無意中發現 FaxClientXControl.OCX
可於VFP直接使用達到傳真的目的,希望好東西能與好朋友分亨
故而在此野人獻曝,敬請指教 !

下載地
http://hinetfax.hinet.net/download.htm
Socket2 Fax 程式和使用說明

horace · 發表於: 星期五一月 28, 2005 1:27 pm 文章主題:

Thanks !!

chen-steven · 註冊時間: 2005-08-19 文章: 11 第 3 樓

现在下载不了，能否给一份我，谢谢，chen-steven@126.com

Ruey · 發表於: 星期六八月 20, 2005 11:00 am 文章主題:

可以下載...

不能下載是因為大陸官方封鎖IP!!!

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

這是小弟個人看法啦，用Outlook去發傳真，目的一樣，但省去下載其它元件和學習的程序，而且使用者也較容易上手，發過的傳真，也好管理

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

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

小賴您好：
這個傳真問題，之前也困擾小弟甚久，後來花了很時間，才找出解決之道。
要用Outlook發傳真，大約有三個步驟
1.先在Outlook上設定傳真伺服器
2.將您的客戶資料，利用Outlook的物件，轉進它的連絡人清單
3.同樣也是用Outlook物件，請它幫我們發送傳真，就像發Email一般

這樣做的目的，除了可程式化發送大量傳真外，傳完的資料，一樣會留在Outlook中，方便客戶後續查閱管理，可能會比FaxClientXControl.OCX方便一些

sendera · 註冊時間: 2005-02-20 文章: 23 第 8 樓

請問在OUTLOOK上如何設定傳真伺服器?
是否需要額外的伺服器?如 SMALL BUSSINESS SERVER?

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

sendera您好：

Outlook設定傳真，不用額外的伺服器，它有內建，設定方法，請參考我這篇文件

http://www.1234567.com.tw/instpage.php?r=1&w=100%&h=800&url=www.1234567.com.tw/Company/94062001/index.htm

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

ckp6250兄您好:
感謝分享您的經驗 ; 可是小弟愚昧; 是否能就第二點
"2.將您的客戶資料，利用Outlook的物件，轉進它的連絡人清單 "
作較具體進一步說明 ? 如能以foxpro指令解說更理想.
先行謝過 !

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

小賴, 您好：

說分享不敢當，以下是VFP範例，但需事先聲明，此非小弟原創，原始出處己經忘了，
若對您有所助益，功勞應歸原始作者。
==========================
#Define olFolderContacts 10
#Define olCurrency 14
#Define olPercent 12

Local loOutlook , loNameSpace, loFolder, loContact, loNewContact

vFilter=".T."

Select Company.co_scr As 姓氏,;
Company.co_prn As 公司,;
Company.address2 商務街,;
'' As 商務郵遞區號 ,;
Company.fax As 商務傳真,;
Company.tel As 商務電話,;
Company.id_no 公司ID,;
Company.Master As 主管名稱,;
Company.worker As 助理,;
Company.email As 電子郵件地址;
FROM Company!Company;
ORDER By Company.co_prn ;
WHERE &vFilter .And. ! Deleted() .And. !Empty(fax) ;
INTO Cursor outlook

*!* Get an object reference to Outlook
loOutlook = Createobject("Outlook.Application")
*!* Get the MAPI namespace (the only available one)
*!* and find the Contacts folder
loNameSpace = loOutlook.GetNameSpace("MAPI")
loFolder = loNameSpace.GetDefaultFolder(olFolderContacts)
*!* Add a subfolder below the standard Contacts folder
loContact = loFolder &&.folders.Add("Tasmanian Traders")

Scan
Wait Trim(公司) Window Nowait
loNewContact = loContact.Items.Add() && Returns an object of type
&& ContactItem
With loNewContact
.Categories="記帳客戶"
.LastName=Trim(姓氏)
*!* .FirstName=姓氏

*!* .FullName = 公司
*!* .JobTitle = 姓氏
.CompanyName = Trim(公司)

*!* This makes the company name appear above the contact name in
*!* Outlook. It will also sort by company name.
.FileAs = .CompanyName
.CustomerID = 公司ID

*!* Unfortunately, the Contacts table does not include email.
*!* Note: the property below is Email One Address. This is not clear
*!* under some fonts.
.Email1Address = Trim(電子郵件地址)
.Email1AddressType = "SMTP"

.ManagerName = Trim(主管名稱)
.AssistantName = Trim(助理)

.BusinessAddressPostalCode = Trim(商務郵遞區號)
.BusinessAddressStreet = Trim(商務街)
.BusinessAddressCountry = "台灣"
.BusinessTelephoneNumber = Alltrim(商務電話)
.BusinessFaxNumber = Alltrim(商務電話)

*!* Create user-defined properties for extra fields
*!* .UserProperties.Add("Max Order Amount", olCurrency)
*!* .UserProperties.Add("Min Order Amount", olCurrency)
*!* .UserProperties.Add("Discount", olPercent)

*!* If you use numeric indexes here (1, 2, and 3) you'll
*!* find that the collection is alphabetical.
*!* .UserProperties("Discount").Value = Round(discount / 100, 2)
*!* .UserProperties("Max Order Amount").Value = max_order_amt
*!* .UserProperties("Min Order Amount").Value = min_order_amt

*!* ContactItem does not appear in Outlook until it is saved.
.Save
.close(.F.)
Endwith
Endscan
Wait Clear
loContact.Display
Release loOutlook
Release All

=================================

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

TO :ckp6250兄
看起來像匯入電話簿 ; (我還沒試)
那我要如何於VFP配合REPORT ....
來起動傳真, 設定FaxNumber .....
還有傳真費用問題可否一並告知.

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

小賴, 您好:

沒錯，這是我指的步驟２，只是匯入電話簿而已，

傳真是在步驟３

設定FaxNumber沒有問題，傳真費用沒什麼特別，就和我們平常傳真一樣，
因為這是透過Modem傳真，不是所謂的『網際傳真』，所以您的電腦要
接Modem和電話線才行。

Outlook 2003 可以『網際傳真』，但看起來挺麻煩，還要買點數帳號等等，
我個人覺得不如直接接Modem去傳算了

我一般是把傳真內容寫在郵件本文內，至於配合REPORT From 的方法，
我還沒試過哩

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

TO :ckp6250兄
這樣子, 你是於OutLook發送傳真, 還是於VFP利用OulLook物件
發送傳真呢?

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

小賴兄您好：

當然是在VFP利用OulLook物件，如此方可程式化呀，才能如您講的，

多文多發(一次傳送多封傳真且每張傳真內容不同)

我在XP下用的很順手，但我沒有98的電腦，沒試過哦