Discussion :

[vciofolo]

Bonjour,

J'ai utilisé le tuto "Comment récupérer le carnet d'adresses d'Outlook ?" et je souhaite savoir s'il est possible de récupérer aussi les infos sur la personne (adresse, tel, service ...).

Le code permet d'avoir l'adresse, le nom et prénom... Il permet aussi l'affichage de la fenêtre de propriété de cette personne, mais comment peut-on récupérer par exemple son téléphone ?

D'avance merci.

[Frank]

Bonjour,

voici un exemple de création "en dur" d'un contact dans Outlook depuis Access:

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
'Création d 'un ou de contacts
Public Sub Contact()
'Déclaration de variables
Dim ObjOutlook As Outlook.Application  'Objet Outlook
Dim Cont As Outlook.ContactItem  'Objet contact (représenté par la fiche de saisie)
Dim myFolder As Outlook.mapiFolder 'Représente un dossier Outlook
Dim myNameSpace As Outlook.NameSpace 'objet racine abstrait pour un type de source de données quelconque
 
'Création de l'instance Outlook
Set ObjOutlook = CreateObject("Outlook.application")
'Accès à l'objet MAPI
Set myNameSpace = ObjOutlook.GetNamespace("MAPI")
'Dossier de contacts par défaut
Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts)
'Creation de la fiche Contact
Set Cont = ObjOutlook.CreateItem(olContactItem)
'La fiche de contact est visible
Cont.Display
'Insertion des différents renseignements concernant le contact crée
Cont.FullName = "M. François LOBIRTA"
Cont.Profession = "Gérant"
Cont.CompanyName = "Les Kayakistes Associés"
Cont.BusinessAddressStreet = "10, Rue des oliviers"
Cont.BusinessAddressPostalCode = "20000"
Cont.BusinessAddressCity = "Ajaccio"
Cont.BusinessAddressCountry = "France"
Cont.BusinessTelephoneNumber = "0495200001"
Cont.Anniversary = "06 Mars 1956"
Cont.Email1Address = "flobirta@leskayakistesassocies.fr"
'On sauvegarde la fiche contact
Cont.Save
'on la ferme sans demande de confirmation
Cont.Close olSave
'Libération de l'instance
Set ObjOutlook = Nothing
 
End Sub

Tu retrouveras sans peine plusieurs autres champs en lisant les propriétés de l'objet Cont.

[vciofolo]

En fait ce n'est pas les contacts dont j'ai besoin mais le carnet d'adresse (en lecture pas en création ou édition).
Merci.