Delphi 和 MSG 文件

Question

如何使用 Delphi 2010 显示 Outlook 消息文件？有没有办法包装 Outlook 应用程序并在 Delphi 中打开它？

Answer 1

使用类似以下内容:

var App : OutlookApplication;
    NS : _Namespace;
    Msg : _MailItem;
begin
  App := CreateOleObject('Outlook.Application');
  NS := App.GetNamespace('MAPI');
  NS.Logon;
  Msg := NS.OpenSharedItem('c:\temp\test.msg');
  ShowMessage(Msg.Subject);

您还可以使用Redemption (我是它的作者)及其RDOSession .GetMessageFromMsgFile 方法。