Outlook msg文件存儲在本地磁盤，如何用delphi讀取

Question

我需要檢索存儲在本地磁盤上的outlook的msg文件的正文，並從每個文件中提取一些信息，它們的格式始終是相同的，只有數據更改， 請指教。

在此先感謝 勞爾

---

感謝大家，

由於限制回答我自己，我會寫僅低於我的問題我的解決方案。

我檢查了一些MS文檔，這裏是我的解決方案按預期工作。

procedure TForm1.displayOutlookMsg(aFileName: string); 
const 
olFormatHTML = 2; 
olFormatPlain = 1; 
olFormatRichText = 3 ; 
olFormatUnspecified = 0; 

var outlook: OleVariant; 
    outlookMsg, bodyMsg: variant; 
begin 

    try 
    Outlook := GetActiveOleObject('Outlook.Application'); 
    except 
    Outlook := CreateOleObject('Outlook.Application'); 
    end; 

    outlookMsg:= outlook.CreateItemFromTemplate(aFileName); 
    outlookMsg.bodyFormat := olFormatPlain; 

    bodyMsg:= outlookMsg.body; 

    Memo1.Lines.Add(VarToStr(bodyMsg)); 
    outlook:= unassigned; 

end; 

Answer 1

勞爾，你可以解析MSG文件自行檢查Outlook MSG file format或使用Delphi組件像SMMsg suite。

Answer 2

你可以試試從Scalabium SMMsg。