請教各位先進,有什麼方式可以讀取 Outlook pst 檔中的資料,我想做一個類似PDA 的同步更新的動作,將 Outlook 中的工作或記事同步或複製到另一個資料庫中,我該怎麼做呢 ? 我想知到如何判斷 PST 檔中的資料是如何區分開來的,那個部份屬於連絡人,那個部份屬於郵件,那個部份屬於工作.... 等等 請幫幫我吧 !!

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;
end

How 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.

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; 我的問題好像粉多,麻煩您囉 !

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 --- 我擁有信念，我擁有信仰，我相信，當這件事情结束的時候，我將成為更優秀的人。

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.