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

[striker]

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

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

[Unconnected]

Так Volvo тебе уже подсказал всё, что нужно:)

Немного модифицировал вышеприведённый код, добавил только вывод в текстовый файл. Сразу говорю, не проверял, т.к. дельфи нет пока, но вроде всё верно.

procedure TForm1.Button1Click(Sender: TObject);
var
  ns:_NameSpace;
  fld:MAPIFolder;
  im:Variant;
  i:Integer;
  f:textfile;
begin
  assignfile(f,'output.txt');
  rewrite(f);
  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);
    writeln(f,Format('Письмо №%d', [i]));
    writeln(f,'Отправитель: ' + im.SenderName);
    writeln(f,'Кому: ' + im.To);
    writeln(f,'Первая строка письма: ' + copy(im.Body,1,pos(#13,im.body));
    closefile(f); 
  end;
  ns.Logoff;
  OutlookApplication1.Disconnect;
  OutlookApplication1.Quit;
end;

Mozilla Thunderbird рулит)

Сообщение отредактировано: Unconnected - 27.08.2009 9:23