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

[striker]

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

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

[volvo]

Так... Нашел компьютер с Аутлуком и Дельфи одновременно... Уточни, чего именно тебе надо получить? Информацию об Исходящих, или Входящих? Вот это:

procedure TForm1.Button1Click(Sender: TObject);
var
  ns:_NameSpace;
  fld:MAPIFolder;
  im:Variant;
  i:Integer;
begin
  OutlookApplication1.Connect;
  ns := OutlookApplication1.GetNamespace('MAPI');
  ns.Logon(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  fld:=ns.GetDefaultFolder(olFolderInbox);
  for i:=1 to fld.Items.Count do
  begin
    im := fld.Items.Item(i);
    Memo1.Lines.Add(Format('Письмо №%d', [i]));
    Memo1.Lines.Add('Отправитель: ' + im.SenderName);
    Memo1.Lines.Add('Кому: ' + im.To);
    Memo1.Lines.Add('Текст письма: ' + im.Body);
  end;
  ns.Logoff;
  OutlookApplication1.Disconnect;
  OutlookApplication1.Quit;
end;

Получает информацию обо всех входящих письмах, включая и текст письма. На форме - TMemo + TButton + TOutlookApplication (вкладка Servers), проверено в D2007 + WinXP + Office XP