全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1858
推到 Plurk!
推到 Facebook!

Ole Automation

答題得分者是:st33chen
cashyy
高階會員


發表:117
回覆:322
積分:212
註冊:2004-04-30

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-11-23 15:30:42 IP:59.125.xxx.xxx 訂閱
各位先進,有一問題想請問一下!
下段程式是從http://delphi.ktop.com.tw/board.php?cid=168&fid=923&tid=55190,複製過來的!

對下段程式有一問題是在「紅色」字的地方,要怎麼知道那些紅字的定義,因為我打入其它字,都會出現「不明的名稱」等錯誤
,所以請大大們不吝告知一下要怎麼查這些定義!謝謝您!



// Create a new item in Calendar folder
Variant OutlookApp, MAPINameSpace, CalendarFolder, CalendarItems, CalendarItem;
try
{
OutlookApp=Variant::CreateObject("Outlook.Application");
}
catch(Sysutils::Exception &ex)
{
return;
}
try
{
MAPINameSpace=OutlookApp.OleFunction("GetNamespace", StringToOleStr("MAPI"));
}
catch(Sysutils::Exception &ex)
{
OutlookApp.OleFunction("Quit");
return;
}
Variant CalendarFolderType=olFolderCalendar;
CalendarFolder=MAPINameSpace.OleFunction("GetDefaultFolder", CalendarFolderType);
CalendarItems=CalendarFolder.OlePropertyGet("Items");
CalendarItem=CalendarItems.OleFunction("Add");

CalendarItem.OlePropertySet("Subject", StringToOleStr("Any subject"));
CalendarItem.OlePropertySet("Location", StringToOleStr("Any location"));
TDateTime dtStart=EncodeDateTime(2004, 9, 1, 8, 0, 0, 0);
Variant Start=dtStart;
CalendarItem.OlePropertySet("Start", Start);
TDateTime dtEnd=EncodeDateTime(2004, 9, 1, 10, 0, 0, 0);
Variant End=dtEnd;
CalendarItem.OlePropertySet("End", End);
CalendarItem.OleFunction("Save");
OutlookApp.OleFunction("Quit");


李國維
高階會員


發表:42
回覆:287
積分:235
註冊:2003-02-07

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-11-23 15:34:18 IP:61.67.xxx.xxx 訂閱
是否有#include "Outlook_2K_SRVR.h"

===================引 用 cashyy 文 章===================
各位先進,有一問題想請問一下!
下段程式是從http://delphi.ktop.com.tw/board.php?cid=168&fid=923&tid=55190,複製過來的!

對下段程式有一問題是在「紅色」字的地方,要怎麼知道那些紅字的定義,因為我打入其它字,都會出現「不明的名稱」等錯誤
,所以請大大們不吝告知一下要怎麼查這些定義!謝謝您!



// Create a new item in Calendar folder
Variant OutlookApp, MAPINameSpace, CalendarFolder, CalendarItems, CalendarItem;
try
{
OutlookApp=Variant::CreateObject("Outlook.Application");
}
catch(Sysutils::Exception &ex)
{
return;
}
try
{
MAPINameSpace=OutlookApp.OleFunction("GetNamespace", StringToOleStr("MAPI"));
}
catch(Sysutils::Exception &ex)
{
OutlookApp.OleFunction("Quit");
return;
}
Variant CalendarFolderType=olFolderCalendar;
CalendarFolder=MAPINameSpace.OleFunction("GetDefaultFolder", CalendarFolderType);
CalendarItems=CalendarFolder.OlePropertyGet("Items");
CalendarItem=CalendarItems.OleFunction("Add");

CalendarItem.OlePropertySet("Subject", StringToOleStr("Any subject"));
CalendarItem.OlePropertySet("Location", StringToOleStr("Any location"));
TDateTime dtStart=EncodeDateTime(2004, 9, 1, 8, 0, 0, 0);
Variant Start=dtStart;
CalendarItem.OlePropertySet("Start", Start);
TDateTime dtEnd=EncodeDateTime(2004, 9, 1, 10, 0, 0, 0);
Variant End=dtEnd;
CalendarItem.OlePropertySet("End", End);
CalendarItem.OleFunction("Save");
OutlookApp.OleFunction("Quit");


st33chen
尊榮會員


發表:15
回覆:591
積分:1201
註冊:2005-09-30

發送簡訊給我
#3 引用回覆 回覆 發表時間:2009-11-23 20:46:39 IP:122.116.xxx.xxx 未訂閱
您好,

請參考

http://74.125.153.132/search?q=cache:Tp8QdU8YMNEJ:fs.mis.kuas.edu.tw/~haupy/2.ɦVtγ]p/T301 C++Builder 6 /CH32.ppt olefunction 有哪些&cd=7&hl=zh-TW&ct=clnk&gl=tw

(或用 google 找 olefunction 有哪些, 可找到 [PPT] 第十九章Multi-Tier的程式開發)

中有下列段落的地方
  • 然而,若是不知道OLE Server端提供的OLE物件中有哪些函式或是屬性可供使用,則縱使知道上述方法亦昰無用武之地。因此,知道OLE Server提供的OLE物件才昰使用OLE Automation的關鍵。
  • 對於Microsoft Office來說,所有提供的物件皆可在所附的Visual Basic編輯器中透過瀏覽物件的方式顯示,整個步驟如下頁圖示。

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.
cashyy
高階會員


發表:117
回覆:322
積分:212
註冊:2004-04-30

發送簡訊給我
#4 引用回覆 回覆 發表時間:2009-11-24 14:00:00 IP:122.116.xxx.xxx 訂閱
感謝st33chen先進提供這樣的資訊,原來可以從Microsoft Visual Basic說明裡面得到我要的資訊,同時也感謝熱心的國維兄
謝謝您們熱心回答!我以st33chen先進結案了,再次謝謝您們
系統時間:2017-10-22 18:05:26
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!