上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
小賴
註冊時間: 2004-12-27 文章: 470
第 1 樓
|
發表於: 星期四 一月 27, 2005 7:12 pm 文章主題: 於VFP內發送傳真 |
|
|
公司採購訂單一向由傳真通知廠商;此種多文多發
(一次傳送多封傳真且每張傳真內容不同)的方式
一般市面傳真軟體似乎難以滿足我們的需求
最近於中華電訊網站無意中發現 FaxClientXControl.OCX
可於VFP直接使用達到傳真的目的,希望好東西能與好朋友分亨
故而在此野人獻曝,敬請指教 !
下載地
http://hinetfax.hinet.net/download.htm
Socket2 Fax 程式和使用說明 |
|
回頂端 |
|
|
horace
註冊時間: 2004-11-25 文章: 36 來自: 新竹
第 2 樓
|
發表於: 星期五 一月 28, 2005 1:27 pm 文章主題: |
|
|
Thanks !! |
|
回頂端 |
|
|
chen-steven
註冊時間: 2005-08-19 文章: 11
第 3 樓
|
發表於: 星期六 八月 20, 2005 10:29 am 文章主題: |
|
|
现在下载不了,能否给一份我,谢谢,chen-steven@126.com |
|
回頂端 |
|
|
Ruey
註冊時間: 2003-03-12 文章: 1698 來自: tunglo
第 4 樓
|
發表於: 星期六 八月 20, 2005 11:00 am 文章主題: |
|
|
可以下載...
不能下載是因為大陸官方封鎖IP!!! _________________ #############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30 文章: 1644
第 5 樓
|
發表於: 星期二 八月 23, 2005 5:36 pm 文章主題: 由 Outlook 中發傳真,是否更省事呢? |
|
|
這是小弟個人看法啦,用Outlook去發傳真,目的一樣,但省去下載其它元件和學習的程序,而且使用者也較容易上手,發過的傳真,也好管理 |
|
回頂端 |
|
|
小賴
註冊時間: 2004-12-27 文章: 470
第 6 樓
|
發表於: 星期二 八月 23, 2005 5:55 pm 文章主題: |
|
|
?? 我是不是太孤陋寡聞 ?
願聞其詳 .... |
|
回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30 文章: 1644
第 7 樓
|
發表於: 星期二 八月 23, 2005 9:48 pm 文章主題: |
|
|
小賴您好:
這個傳真問題,之前也困擾小弟甚久,後來花了很時間,才找出解決之道。
要用Outlook發傳真,大約有三個步驟
1.先在Outlook上設定傳真伺服器
2.將您的客戶資料,利用Outlook的物件,轉進它的連絡人清單
3.同樣也是用Outlook物件,請它幫我們發送傳真,就像發Email一般
這樣做的目的,除了可程式化發送大量傳真外,傳完的資料,一樣會留在Outlook中,方便客戶後續查閱管理,可能會比FaxClientXControl.OCX方便一些 |
|
回頂端 |
|
|
sendera
註冊時間: 2005-02-20 文章: 23
第 8 樓
|
發表於: 星期二 八月 23, 2005 10:39 pm 文章主題: |
|
|
請問在OUTLOOK上如何設定傳真伺服器?
是否需要額外的伺服器?如 SMALL BUSSINESS SERVER? |
|
回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30 文章: 1644
第 9 樓
|
|
回頂端 |
|
|
小賴
註冊時間: 2004-12-27 文章: 470
第 10 樓
|
發表於: 星期三 八月 24, 2005 9:38 am 文章主題: |
|
|
ckp6250兄您好:
感謝分享您的經驗 ; 可是小弟愚昧; 是否能就第二點
"2.將您的客戶資料,利用Outlook的物件,轉進它的連絡人清單 "
作較具體進一步說明 ? 如能以foxpro指令解說更理想.
先行謝過 ! |
|
回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30 文章: 1644
第 11 樓
|
發表於: 星期三 八月 24, 2005 10:11 am 文章主題: |
|
|
小賴, 您好:
說分享不敢當,以下是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 樓
|
發表於: 星期三 八月 24, 2005 11:36 am 文章主題: |
|
|
TO :ckp6250兄
看起來像匯入電話簿 ; (我還沒試)
那我要如何於VFP配合REPORT ....
來起動傳真, 設定FaxNumber .....
還有傳真費用問題可否一並告知. |
|
回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30 文章: 1644
第 13 樓
|
發表於: 星期三 八月 24, 2005 4:09 pm 文章主題: |
|
|
小賴, 您好:
沒錯,這是我指的步驟2,只是匯入電話簿而已,
傳真是在步驟3
設定FaxNumber沒有問題,傳真費用沒什麼特別,就和我們平常傳真一樣,
因為這是透過Modem傳真,不是所謂的『網際傳真』,所以您的電腦要
接Modem和電話線才行。
Outlook 2003 可以『網際傳真』,但看起來挺麻煩,還要買點數帳號等等,
我個人覺得不如直接接Modem去傳算了
我一般是把傳真內容寫在郵件本文內,至於配合REPORT From 的方法,
我還沒試過哩 |
|
回頂端 |
|
|
小賴
註冊時間: 2004-12-27 文章: 470
第 14 樓
|
發表於: 星期三 八月 24, 2005 4:37 pm 文章主題: |
|
|
TO :ckp6250兄
這樣子, 你是於OutLook發送傳真, 還是於VFP利用OulLook物件
發送傳真呢? |
|
回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30 文章: 1644
第 15 樓
|
發表於: 星期三 八月 24, 2005 4:40 pm 文章主題: |
|
|
小賴兄您好:
當然是在VFP利用OulLook物件,如此方可程式化呀,才能如您講的,
多文多發(一次傳送多封傳真且每張傳真內容不同)
我在XP下用的很順手,但我沒有98的電腦,沒試過哦 |
|
回頂端 |
|
|
|