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

[volvo]

procedure TForm1.OutlookClick(Sender: TObject);
var
  i: Integer;
  myOutlookApp: TOutlookApplication;

  mailItem, objReply: OutlookXP.MailItem;
  objRecips: OutlookXP.Recipients;

  iCount: Integer;
  s, s_addr, firstLine: string;
  sL: TStringList;
  FromTo, currFolderName: string;
begin
  myOutlookApp := TOutlookApplication.Create(nil);
  myOutlookApp.ConnectKind := ckRunningInstance;

  try
    myOutlookApp.Connect;
  except
    ShowMessage('Нет запущенной копии MS Outlook');
    myOutlookApp.Free; Exit;
  end;

  for iCount := 1 to myOutlookApp.ActiveExplorer.Selection.Count do
  begin
    mailItem := myOutlookApp.ActiveExplorer.Selection.Item(iCount) as _MailItem;

    currFolderName := myOutlookApp.ActiveExplorer.CurrentFolder.Name;
    s_addr := '';
    if currFolderName = 'Inbox' then
    begin
      FromTo := 'From';
      objReply := mailItem.Reply;
      objRecips := objReply.Recipients;
      for i := 1 to objRecips.Count do
        with objRecips.Item(i) do
        begin
          s_addr := s_addr + Format('%s <%s> ', [Name, Address]);
        end;
    end
    else
    begin
      FromTo := 'To';
      for i := 1 to mailItem.Recipients.Count do
        with mailItem.Recipients.Item(i) do
        begin
          s_addr := s_addr + Format('%s <%s> ', [Name, Address]);
        end;
    end;

    sL := TStringList.Create;
    try
      sL.DelimitedText := StringReplace(mailItem.Body, ' ', '&prob;', [rfReplaceAll]);
      firstLine := StringReplace(sL.Strings[0], '&prob;', ' ', [rfReplaceAll]);
    finally
      sL.Free;
    end;

    s := Format('%s %s : "%s", sent: %s',
      [FromTo, s_addr, firstLine, DateToStr(mailItem.SentOn)]);
    ShowMessage(s);
  end;
  myOutlookApp.Disconnect;
  myOutlookApp.Free;
end;

Больше править не буду, в конце концов, совесть-то имей! Задание было чье вообще? Ты хоть MSDN на странице Outlook Objects соизволил открыть, или это мне надо больше, чем тебе? Уверяю, МНЕ оно на фиг не надо, я как с MSO не работал, так и не буду. Надо будет что-нибудь исправить - MSDN в зубы и вперед, грызть гранит науки. Я потерял к твоим вопросам интерес.