Ну я ж говорю - с гуглом проблемы...
Вторая ссылка в выдаче:
Код:
procedure TForm1.BtnGetUsersClick(Sender: TObject);
var
OutlookApp, MapiNamespace, AddrList, AddressEntries: Variant;
AddrEntry: string;
begin
//Get the Outlook Application object.
OutlookApp := CreateOleObject('Outlook.Application');
//Get the MAPI NameSpace object.
MapiNamespace := OutlookApp.GetNameSpace('MAPI');
AddrList := MapiNamespace.AddressLists('Global Address List');
AddressEntries := AddrList.AddressEntries;
try
try
ListBox1.Items.Clear;
AddrEntry := AddressEntries.GetFirst;
repeat
ListBox1.Items.Add(AddrEntry);
AddrEntry := AddressEntries.GetNext;
until false;
except
// we must be at the end
end;
finally
ListBox1.Items.Add(AddrEntry);
OutlookApp := NULL;
end;
end;