Данные из Outlook, как достать? :) Опции

[striker]

Нужно достать из аутлука в текстовый файл некоторые данные, а именно: кому,от кого, время отправления, первая строка письма

Т.е программа должна это делать. Как из него вытащить информацию?

[volvo]

Погоди... Тебе что, надо, чтобы было так: пользователь работает с Аутлуком, твоя программа либо висит где-то на заднем плане, либо вообще не запущена. Выбрали одно из писем, запустили/активировали твою программы, и она сохранила нужные данные? Ну, допустим, Имя приславшего тебе письмо, Текст самого письма, и дата отсылки - не проблема, получается очень просто, даже безо всяких компонентов:

   try
     OutlookApp := GetActiveOleObject('Outlook.Application');
   except
     ShowMessage('Нет запущенной копии MS Outlook'); Exit;
   end;

   for iCount := 1 to OutLookApp.ActiveExplorer.Selection.Count do
   begin
     //
     mailItem := OutLookApp.ActiveExplorer.Selection.Item[iCount];
     s := Format('От %s : "%s", Время отсылки:',
       [mailItem.SenderName, mailItem.Body, mailItem.SentOn]);
     ShowMessage(s);
   end;

, но если тебе надо еще и реальный e-mail, с которого выслано сообщение, то тут будет "биг бада бум", этого ты через Automation Object не получишь, надо будет заморачиваться с интерфейсами. Это только сегодня поздно вечером или завтра, раньше у меня не получится...