Outlook felhasználói mappa nevek lekérdezése

procedure TForm1.FormCreate(Sender: TObject);
begin
  FOutlook:=CreateOleObject('Outlook.Application');
  FNameSpace:=FOutlook.GetNameSpace('MAPI');
  FDeletedItemsFolder:=FNameSpace.GetDefaultFolder(3).Name;
end;

procedure TForm1.Button1Click(Sender: TObject);
…
  TreeView1.Items.Clear;
  Folders:=FNameSpace.Folders;  i:=0;
  while i<Folders.Count do begin
    MAPIFolder:=Folders.Item[i+1];
    ScanFolders(nil, MAPIFolder);    inc(i);
  end;
  TreeView1.Items[0].Expand(false);
end;

procedure TForm1.ScanFolders (TreeNode:TTreeNode; MAPIFolder:OleVariant);
…
  if (MAPIFolder.DefaultItemType<>0)
  or (MAPIFolder.Name=FDeletedItemsFolder) then Exit;

  FolderName:=MAPIFolder.Name;
  FolderItems:=MAPIFolder.Items.Count;

  if TreeNode=nil
  then NewNode:=TreeView1.Items.Add(TreeNode, FolderName)
  else NewNode:=TreeView1.Items.AddChild(TreeNode, FolderName);
  NewNode.ImageIndex:=0;  NewNode.SelectedIndex:=0;
…

  
  i:=0;
  while i<MAPIFolder.Folders.Count do begin
    ScanFolders(NewNode, MAPIFolder.Folders.Item[i+1]);
    inc(i);
  end;

  t:=1;
  while t<=MAPIFolder.Items.Count do begin
    mi:=MAPIFolder.Items(t);
    MailSender:=mi.SenderName;   MailSubject:=mi.Subject;
    MailReceived:=mi.ReceivedTime;
    NewMailNode:=TreeView1.Items.AddChild(NewNode, MailSender+': '+MailSubject+' ('+MailReceived
       +')');
    NewMailNode.ImageIndex:=1;    NewMailNode.SelectedIndex:=1;
    inc(t);
  end;
  Label1.Caption:='';
end;