Bonjour,
 
Depuis mon programme, je recherche à obtenir les renseignements d'un contact se trouvant dans une tache ou dans un rdv (on retrouve le nom des contacts tt en bas du rdv ou de la taches dans contacts et si on clic dessus, ca nous ouvre sa fiche)
 
J'ai récupéré ce code en vb qui peut seulement compter le nombre de contact et afficher son nom complet.
 
Moi j'aimerais pouvoir récupérer tous les renseignements du contact.
 
Je pourrais faire une recherche avec le nom complet mais ca met énormément de temps.
 
Code en vb :
Set myNSpace = Application.GetNamespace("MAPI" )
Set myItems = myNSpace.GetDefaultFolder(13).Items
For x = 1 To myItems.Count
    If TypeName(myItems.Item(x)) = "TaskItem" Then
        Set myItem = myItems.Item(x)
        Set myLinks = myItem.Links
        Msg = myItem.Subject & " has " & myLinks.Count & " links."
        If myItem.Complete = False Then
            If MsgBox(Msg, 1) = 2 Then Exit For
        End If
    End If
 Next
 
 
code en delphi :
//CONNECTION A OUTLOOK
  Form_Menu.Outlook.Connect;
  NmSpace := Form_Menu.Outlook.GetNamespace('MAPI');
  NmSpace.Logon('','',false,false);
 
//CREATION DU POINTEUR DOSSIER RDV
   FolderMAPI   := NmSpace.GetDefaultFolder(9) ;
 
//ON RECUPERE LE PREMIER RDV
xRdv   := FolderMAPI.Items.Item(1)as AppointmentItem;
 
//LE NOMBRE DE CONTACT
iNbContact := xRdv.Links.Count;
 
//On peut récupérer le nom du contact
sNomInvite := LinkInvite.Name;  
 
//On peut récupérer le links du contact (mais je ne sais pas comment m'en servir   )
LinkInvite := xRdv.Links.item(1);
 
A partir de là, je ne sais pas comment faire le lien pour récupperer tous les info du contact.
 
Merci d'avance à celui qui pourra m'aider
 

Les titres en majuscule c'est mal

que ca soit en majuscule ou minuscule, ca ne change pas grand chose à mon pb

Ouais mais en majuscule ça ne respecte pas les règles mises en place

dslé, je savais pas

pour modifier un message

?

pour mettre le titre en minuscules

Mauvaise réponse.