請問 Outlook 的 PST 檔 |
尚未結案
|
ghostbear
一般會員 發表:1 回覆:2 積分:0 註冊:2002-10-18 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
How can I retrieve a folder list from MS Outlook: http://www.scalabium.com/faq/dct0120.htm
procedure TfrmMain.RetrieveOutlookFolders(tvFolders: TTreeView); procedure LoadFolder(ParentNode: TTreeNode; Folder: OleVariant); var i: Integer; node: TTreeNode; begin for i := 1 to Folder.Count do begin node := tvFolders.Items.AddChild(ParentNode, Folder.Item[i].Name; LoadFolder(node, Folder.Item[i].Folders); end; end; var outlook, NameSpace: OLEVariant; begin outlook := CreateOleObject('Outlook.Application'); NameSpace := outlook.GetNameSpace('MAPI'); LoadFolder(nil, NameSpace.Folders); outlook := UnAssigned; endHow can I retrieve items (messages/tasks/etc) from any MS Outlook folder: http://www.scalabium.com/faq/dct0121.htm --- Everything I say is a lie. |
ghostbear
一般會員 發表:1 回覆:2 積分:0 註冊:2002-10-18 發送簡訊給我 |
Sorry !! 有些部份還是不太瞭解
在參考的網站中的範例,我執行後會有下列一些問題
1.
outlook := CreateOleObject('Outlook.Application');
NameSpace := outlook.GetNameSpace('MAPI');
Folder := NameSpace.GetFolderByID(EntryID); <--- GetFolderByID 程式執行時會出現問題耶 2.
olTaskItem: s := oiItem.SenderName oiItem.DueDate oiItem.PercentComplete;
olTaskItem 代表"工作"Floder,那 oiItem.SenderName 是它的欄位名稱對吧,這些欄位名稱要到何處查,才能查到這些資料(當然希望不只是"工作"這個Floder) 3.
我執行後的結果,單獨秀 DueDate 到期日會得到結果,但是 SenderName 就會出現'Method 'SenderName' not supported by automation object' 為什麼呢 ? 4.
單獨秀 PercentComplete 完成狀態也會得到結果,但是若秀 oiItem.DueDate oiItem.PercentComplete ,只會秀 DuteDate 的值而已,為什麼呢 ? 以下是我稍加修改的程式 procedure TForm1.Button2Click(Sender: TObject);
var MSOutlook , MyNameSpace,
MyFolder , EntryID ,intFolderType ,oiItem : Variant ;
i :integer ;
S :String ;
begin
//olFolderContacts 聯絡人
//olFolderNotes 記事
//olFolderTasks 工作
MSOutlook := CreateOleObject('Outlook.Application');
MyNameSpace := MSOutlook.GetNameSpace('MAPI') ;
// MyFolder := MyNamespace.GetFolderByID(EntryID) ;
MyFolder := MyNameSpace.GetDefaultFolder(olFolderTasks); intFolderType := MyFolder.DefaultItemType; for i := 1 to MyFolder.Items.Count do
begin
oiItem := MyFolder.Items[i]; case intFolderType of
olMailItem: s := VarToStr(oiItem.SenderName) oiItem.Subject oiItem.ReceivedTime oiItem.ReceivedByName;
olAppointmentItem: s := oiItem.Subject oiItem.ReplyTime;
olContactItem: s := oiItem.FullName; // oiItem.Email;
olTaskItem: s := oiItem.DueDate oiItem.PercentComplete ;// oiItem.SenderName ;
olJournalItem: s := oiItem.SenderName;
olNoteItem: s := oiItem.Subject ;// oiItem.CreationTime oiItem.LastModificationTime;
olPostItem: s := VarToStr(oiItem.SenderName) ;// oiItem.Subject oiItem.ReceivedTime;
end;
Memo1.Lines.Append(S) ;
end;
end; 我的問題好像粉多,麻煩您囉 !
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
1.GetFolderByID 有問題, 出現什麼錯誤訊息?MAPI 安裝了嗎?
2.http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdo/html/_olemsg_getdefaultfolder_method_session_object_.asp
另外底下也有一個網址可以參考:
http://www.djpate.freeserve.co.uk/AutoOutl.htm ---
我擁有信念,我擁有信仰,我相信,當這件事情结束的時候,我將成為更優秀的人。
|
Ktop_Robot
站務副站長 發表:0 回覆:3511 積分:0 註冊:2007-04-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |