bonjour a tous,

j'essai de récuperer tout les contacts outlook pour cela j'utilise :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button1Click(Sender: TObject);
var
 outlook, NameSpace, Contacts, Contact: OleVariant;
 i: Integer;
 tel,nom,prenom:string;
begin
 outlook := CreateOleObject('Outlook.Application');
 NameSpace := outlook.GetNameSpace('MAPI');
 Contacts := NameSpace.GetDefaultFolder(olFolderContacts);
 for i := 1 to Contacts.Items.Count do
 begin
   Contact := Contacts.Items.Item(i);
   tel:=Contact.BusinessTelephoneNumber;
   nom:=Contact.LastName;
   prenom:=Contact.FirstName;
   ListBox1.Items.Add(tel+' '+prenom+' '+nom);
 end;
 Outlook := UnAssigned;
end;
ce qui marche tres bien mais récupere que les contacts outlook de base de la boite au lettres
or j'aurai besoin de récuperer aussi les contacts outlook des dossiers publics

est ce que quelqu'un aurai deja fait ca ou aurai une idée sur la question ?

merci d'avance