Discussion :

[datym]

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

[Laurent Dardenne]

Salut,
essaie l'objet Folders

GetDefaultFolder, méthode
Voir aussi S'applique à Exemple Particularités
Renvoie un objet MAPIFolder qui représente le dossier par défaut de type requis pour le profil actuel (par exemple, l'obtention du dossier Calendrier par défaut pour l'utilisateur actuellement connecté).

Remarque Pour renvoyer un dossier donné qui n'est pas celui par défaut, vous devez utiliser la collection Folders.

AddToPFFavorites, méthode
...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub AddToFavorites()
'Adds a Public Folder to the List of favorites
 
    Dim olapp As Outlook.Application
    Dim objFolder As MAPIFolder
 
    Set olapp = Outlook.Application
    Set objFolder = _
        olapp.GetNamespace("mapi").Folders.Item(1).Folders(2). _
        Folders("Internet Newsgroups")
    objFolder.AddToPFFavorites
 
End Sub

A tester car je n'ai jamais fait cette manip.