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

[striker]

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

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

[volvo]

Навскидку (проверь, работает ли) - смотреть, что возвращает:

var currFolderName: String;
...
  currFolderName := myOutlookApp.ActiveExplorer.CurrentFolder.Name;
  if currFolderName = 'Inbox' then // Вот тут может быть другое значение, если русскоязычная версия
  begin
    objReply := mailItem.Reply;
    objRecips := objReply.Recipients;
    s_addr := '';
    for i := 1 to objRecips.Count do
    begin
      s_addr := s_addr + objRecips.Item(i).Address;
    end;
  end
  else
  begin
    s_addr := '';
    for i := 1 to mailItem.Recipients.Count do
    begin
      s_addr := s_addr + mailItem.Recipients.Item(i).Address;
    end;
  end;