Discussion :

[datym]

bonjour,

je voudrais savoir si quelqu'un a deja tester de rechercher dans les contacts outlook

j'ai utiliser le composant OutlookApplication1

et le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var
   obj: OleVariant;
   i, j: integer;
begin
   try
     obj := CreateOleObject('outlook.application');
     obj := obj.GetNameSpace('MAPI');
     for i := 1 to obj.AddressLists.Count do
       for j := 1 to obj.AddressLists(i).AddressEntries.Count do
         ListBox1.Items.Add(obj.AddressLists(i).AddressEntries(j).Address);
   except
   end;

cela me permet de lister les contacts outlook MAIS plusieurs probleme

- l'application met 6 secondes a lister ce qui est enorme
- outlook me dit : un prog essai d'acceder aux adresses de messageries enregistrées ds outlook. L'autorisé vous a poursuivre ?

si cette action est inatendu il ce peut qu'il s'agisse d'un virus ...
il faut cocher pour autorisé et choisir un temps : 1 2 5 ou 10 mins

apres cliquez sur oui et la il met les 6 secondes a tout afficher

il faudrai que le temps soit en miliseconde pour la reponse et qu'il me demande pas d'autorisé outlook toute les 10 mins car apres l'affichage je doit decouper les infos (nom, tél) donc 6sec c'est pas jouable

si quelqu'un a une idée ou a deja fait un truc semblable ca serai cool

merci d'avance

[Laurent Dardenne]

Salut,
recherche sur le forum pour le second pb, une solution avait été proposée il y a qq mois.
Pour le pb de durée ton disque est-il fragmenté ?
Combien de contacts ?

[datym]

ok je vais chercher ca
pour le probleme de temps ca vient pas de mon pc ca le fait sur d'autre
et le nombre de contact y'en a plus de 1000