Мне нужно получить тело файлов сообщений 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;