Outlook msg文件存储在本地磁盘，如何用delphi读取

Question

我需要检索存储在本地磁盘上的 Outlook 消息文件的正文，并从每个文件中提取一些信息，它们的格式始终相同，只是数据发生变化，请告知。

提前致谢 Raul

---

谢谢大家，

由于限制自己回答，我将把我的解决方案写在我的问题下面。

我检查了一些 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

Raul，您可以自己检查 Outlook MSG 文件格式 或使用 Delphi 组件，例如 SMMsg suite。

Answer 2

您可以尝试 Scalabium 的 SMMsg。