Export de donnée Exchange-Outlook
bidulle
-
19 mai 2000 à 02:50
jullouyot_46 Messages postés 43 Date d'inscription jeudi 9 décembre 2004 Statut Membre Dernière intervention 11 octobre 2013 - 23 mars 2005 à 17:32
jullouyot_46 Messages postés 43 Date d'inscription jeudi 9 décembre 2004 Statut Membre Dernière intervention 11 octobre 2013 - 23 mars 2005 à 17:32
1 réponse
jullouyot_46
Messages postés
43
Date d'inscription
jeudi 9 décembre 2004
Statut
Membre
Dernière intervention
11 octobre 2013
23 mars 2005 à 17:32
23 mars 2005 à 17:32
Salut,
D'abbord, n'oublie pas d'ajouter la référence outlook.
Puis, ce code affiche le nom des contacts. avec l'objet contact (oct), tu peux récupérer pas mal d'infos (adresse, tel, ...)
Dim MonApp
As Outlook.Application
'application Microsoft outlook
Dim MonNamespace
As Outlook.NameSpace
Dim MesContact
As Outlook.MAPIFolder
Dim oItems
As Outlook.Items
MonApp =
New Outlook.Application
'MonNamespace = New Outlook.NameSpace
MonNamespace = MonApp.GetNamespace("MAPI")
MesContact = MonNamespace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
oItems = MesContact.Items
'puis:, dans une fonction:
Dim oCt As Outlook.ContactItem
oCt = oItems.GetFirst()
Do
While
Not oCt
Is
Nothing
iCount += 1
If oCt.FullName
Is
Nothing
Then
Else
ListeContacts.Items.Add(oCt.FullName)
End
If
oCt = oItems.GetNext
Loop
D'abbord, n'oublie pas d'ajouter la référence outlook.
Puis, ce code affiche le nom des contacts. avec l'objet contact (oct), tu peux récupérer pas mal d'infos (adresse, tel, ...)
Dim MonApp
As Outlook.Application
'application Microsoft outlook
Dim MonNamespace
As Outlook.NameSpace
Dim MesContact
As Outlook.MAPIFolder
Dim oItems
As Outlook.Items
MonApp =
New Outlook.Application
'MonNamespace = New Outlook.NameSpace
MonNamespace = MonApp.GetNamespace("MAPI")
MesContact = MonNamespace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
oItems = MesContact.Items
'puis:, dans une fonction:
Dim oCt As Outlook.ContactItem
oCt = oItems.GetFirst()
Do
While
Not oCt
Is
Nothing
iCount += 1
If oCt.FullName
Is
Nothing
Then
Else
ListeContacts.Items.Add(oCt.FullName)
End
If
oCt = oItems.GetNext
Loop