 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
王建貴
註冊時間: 2004-03-11
文章: 62
第 1 樓
|
 發表於: 星期六 五月 15, 2004 3:56 pm 文章主題: VFP6有沒有像Outlook的行事曆.Activex控制項? |
 |
|
| 公司要寫一個像Outlook的行事曆的會員排課系統.請教各位大大.vfp6有這個Activex控制項嗎? |
|
| 回頂端 |
|
 |
goto-dream
註冊時間: 2004-05-11
文章: 909
第 2 樓
|
|
| 回頂端 |
|
|
goto-dream
註冊時間: 2004-05-11
文章: 909
第 3 樓
|
|
| 回頂端 |
|
|
王建貴
註冊時間: 2004-03-11
文章: 62
第 4 樓
|
| 發表於: 星期二 五月 18, 2004 3:18 pm 文章主題: |
|
|
| 自己寫恐怕功力不夠.小弟想直接用Outlook的行事曆.但是我用行事曆搜尋整個文章.沒看到.用Outlook搜尋都是介紹mail方面的文章.請教goto-dream大大.可以指導一下ㄇ.謝謝! |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 5 樓
|
| 發表於: 星期二 五月 18, 2004 3:32 pm 文章主題: |
|
|
看來可能會像操作excel 一樣,
createobject()建一個outlook物件,
再建一個行事曆吧,
我猜的
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
goto-dream
註冊時間: 2004-05-11
文章: 909
第 6 樓
|
|
| 回頂端 |
|
|
goto-dream
註冊時間: 2004-05-11
文章: 909
第 7 樓
|
| 發表於: 星期二 五月 18, 2004 3:35 pm 文章主題: |
|
|
給你各寄信範例.說明是簡體字.
| 引言回覆: |
*-- ⺼睡赻雄氝樓薊炵善 Outlook
#DEFINE olFolderContacts 10
#DEFINE olCurrency 14
#DEFINE olPercent 12
LOCAL loOutlook, loNameSpace, loFolder, loContact, loNewContact
*!* 鳳龰勤 Outlook 腔勤砓竘蚚
loOutlook = CREATE("Outlook.Application")
*!* 鳳龰 MAPI namespace (躺珨褫蚚腔珨跺)
*!* 甜梑善薊炵�冼躁瘂�
loNamespace = loOutlook.GetNameSpace("MAPI")
loFolder = loNameSpace.GetDefaultFolder(olFolderContacts)
*!* 婓梓袧薊炵�冼躁瘂俵蟯篲衵遘囆蚔躁瘂�
loContact = loFolder.folders.Add("薊炵��")
sele temp
SCAN
loNewContact = loContact.Items.Add() && 殿隙珨跺 ContactItem 濬梗勤砓
WITH loNewContact
.FullName = xm
.JobTitle = dh
.CompanyName = email
*!* 涴妏 company name 堤珋婓 Outlook 笢腔 contact name 腔奻醱.
*!* 坳珩偌 company name 齬唗.
.FileAs = .CompanyName + " (" + ;
ALLTRIM(.FullName) + ")"
*!* 祥倷腔岆, Contacts 桶祥婦嬤 email.
*!* 蛁砩: 眕狟扽俶岆 Email 珨跺華硊. 婓議虳趼极狟祥ラ奠.
.Email1Address = "random@nospam.com"
.Email1AddressType = "SMTP"
lcAddress = ALLTRIM(gzdwdz) + CHR(10) + ;
ALLTRIM(gzyb) + ;
ALLTRIM(gzyb)
.HomeAddress = lcAddress
.BusinessTelephoneNumber = ALLTRIM(jtdh)
.BusinessFaxNumber = ALLTRIM(fax)
*!* 峈塗俋腔趼僇斐膘蚚誧隅砱扽俶
.UserProperties.Add("Max Order Amount", olCurrency)
.UserProperties.Add("Min Order Amount", olCurrency)
.UserProperties.Add("Discount", olPercent)
*!* ⺼彆斕婓涴爵妏蚚杅硉坰竘 (1, 2 睿 3) 斕頗楷珋摩磁岆趼譫倰.
discount = 100
max_order_amt = 200
min_order_amt = 10
.UserProperties("Discount").Value = ROUND(discount / 100, 2)
.UserProperties("Max Order Amount").Value = max_order_amt
.UserProperties("Min Order Amount").Value = min_order_amt
*!* ContactItem 婓帤悵湔ゴ祥頗堤珋婓 Outlook 笢.
.Save
ENDwith
ENDscan
|
_________________
福隆昌淨水有限公司--淨水器的專家,淨水器,飲水機,濾心!!
想了解更多，您可上幸福雞湯組.找尋!!丁澐瑄.老師.
愛作夢 |
|
| 回頂端 |
|
|
王建貴
註冊時間: 2004-03-11
文章: 62
第 8 樓
|
| 發表於: 星期二 五月 18, 2004 4:30 pm 文章主題: |
|
|
| 謝謝各位大大.我只有到Outlook看看說明.看有沒有辦法再說囉.. |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 9 樓
|
| 發表於: 星期二 五月 18, 2004 4:58 pm 文章主題: |
|
|
代轉繁體:
------------------------------
*-- 如何自動添加聯繫到 Outlook
#DEFINE olFolderContacts 10
#DEFINE olCurrency 14
#DEFINE olPercent 12
LOCAL loOutlook, loNameSpace, loFolder, loContact, loNewContact
*!* 獲取對 Outlook 的對象引用
loOutlook = CREATE("Outlook.Application")
*!* 獲取 MAPI namespace (僅一可用的一個)
*!* 並找到聯繫人文件夾
loNamespace = loOutlook.GetNameSpace("MAPI")
loFolder = loNameSpace.GetDefaultFolder(olFolderContacts)
*!* 在標準聯繫人文件夾下添加一個子文件夾
loContact = loFolder.folders.Add("聯繫人")
sele temp
SCAN
loNewContact = loContact.Items.Add() && 返回一個 ContactItem 類別對像
WITH loNewContact
.FullName = xm
.JobTitle = dh
.CompanyName = email
*!* 這使 company name 出現在 Outlook 中的 contact name 的上面.
*!* 它也按 company name 排序.
.FileAs = .CompanyName + " (" + ;
ALLTRIM(.FullName) + ")"
*!* 不幸的是, Contacts 表不包括 email.
*!* 注意: 以下屬性是 Email 一個地址. 在某些字體下不清楚.
.Email1Address = "random@nospam.com"
.Email1AddressType = "SMTP"
lcAddress = ALLTRIM(gzdwdz) + CHR(10) + ;
ALLTRIM(gzyb) + ;
ALLTRIM(gzyb)
.HomeAddress = lcAddress
.BusinessTelephoneNumber = ALLTRIM(jtdh)
.BusinessFaxNumber = ALLTRIM(fax)
*!* 為額外的字段創建用戶定義屬性
.UserProperties.Add("Max Order Amount", olCurrency)
.UserProperties.Add("Min Order Amount", olCurrency)
.UserProperties.Add("Discount", olPercent)
*!* 如果你在這裡使用數值索引 (1, 2 和 3) 你會發現集合是字母型.
discount = 100
max_order_amt = 200
min_order_amt = 10
.UserProperties("Discount").Value = ROUND(discount / 100, 2)
.UserProperties("Max Order Amount").Value = max_order_amt
.UserProperties("Min Order Amount").Value = min_order_amt
*!* ContactItem 在未保存前不會出現在 Outlook 中.
.Save
ENDwith
ENDscan
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
