Acces aux destinataires outlook

Signaler
Messages postés
2
Date d'inscription
vendredi 1 décembre 2000
Statut
Membre
Dernière intervention
23 janvier 2008
-
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
-
Bonjour

J'ai besoin d'aide, avec un ami nous essayons de créer un meeting request via vba, mais nous avons qq problèmes pour ouvrir la liste des destinataires qui se trouve dans outlook et choisir un des contacts. Nous ne trouvons pas le code.

En résumé:

creer un bouton to qui ouvrira mes contacts outlook, je fais mon choix et ensuite send

Si qq'un peut m'aider merci

Merci

1 réponse

Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
19
Tu ne dis pas à partir de quel programme tu crées ton code...
Si tu as une Form ou Userform, mets une Listbox et utilise un code comme ceci

    Dim MyOlApp As Outlook.Application
    Dim MyNameSpace As NameSpace
    Dim MyContacts As MAPIFolder, MyContact As ContactItem
   
    Set MyOlApp = New Outlook.Application
    Set MyNameSpace = MyOlApp.GetNamespace("MAPI")
    Set MyContacts = MyNameSpace.GetDefaultFolder(olFolderContacts)
   
    For Each MyContact In MyContacts.Items
        MsgBox MyContact.FullName  ' chargement de la listbox
        Stop  'F8 pour continuer
    Next

Il y a certainement d'autres façons, mais celle-ci est assez simple.
Tu peux aussi regarder du côté de PickFolder ... qui affiche la liste des répertoires d'Outlook, mais j'ai de la difficulté avec cette fonction. Je pense que ça dépend des versions d'Office qu'on utilise.

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI