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