本地磁盘中存储的Outlook msg文件，如何使用Delphi读取

Question

我需要从本地磁盘检索Outlook的msg文件正文，并从中提取一些信息。它们的格式始终相同，只有数据不同。请给予建议。

提前感谢。 Raul

---

感谢所有人，

由于限制无法自我回复，我将在我的问题下面写出我的解决方案。

我查阅了一些微软文档，并且这是我预期的解决方案。

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;

- Raul

---

你应该将这个作为答案，然后接受它。这将减少你未被接受的答案数量，并提高整个StackOverflow的质量：http://stackoverflow.com/search?q=user%3A548280+is%3Aanswer+hasaccepted%3Ano - Jeroen Wiert Pluimers

Answer 1

Raul，你可以自己解析msg文件，检查Outlook MSG文件格式，或使用 Delphi 组件，例如SMMsg套件。

- RRUZ

Answer 2

你可以尝试使用 Scalabium 公司的 SMMsg。

- Nicholas Ring