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

Question

我需要检索存储在本地磁盘上的outlooks 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

Raul，您可以自己解析 msg 文件，检查 Outlook MSG file format或使用像 SMMsg suite 这样的 Delphi 组件.