Файлы сообщений Outlook, хранящиеся на локальном диске, как читать с помощью delphi

Мне нужно получить тело файлов сообщений Outlook, хранящихся на локальном диске, и извлечь некоторую информацию из каждого из них, их формат всегда один и тот же, только данные меняются, пожалуйста, сообщите.

спасибо заранее Рауль


Спасибо всем,

из-за ограничения на ответ сам, я напишу свое решение чуть ниже моего вопроса.

Я проверил документацию 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;
7
задан Lars Truijens 2 June 2011 в 19:59
поделиться