Discussion :

[The-Wolf]

bonjour,
J'ai un formulaire word que les personnes doivent remplir et à la sortie du denier champ une macro VBA se lance et un userform s'affiche demandant d'entrer un mot de passe pour la modification du document et ensuite il doivent entrer le ou les destinataires de leur document. Je souhaiterais créer un bouton affichant la boite de dialogue "choisir des noms" de outlook et que les choix s'affiche dans une zone de texte après l'appui sur OK.
Si quelqu'un pouvait m'aider ou me donner une piste car mes heures de recherche sur le net sont restées infructueuses. Merci

[Heureux-oli]

C'est d'une version Outlook et pas Outlook Express qu'il s'agit ?

Pour les noms des destinataires, il faut créer un objet outlook et extraire le nom des destinataires.

Tu trouveras un exemple ici

Pour ta liste, malheureusement, je n'ai as trouvé comment faire de la multi-sélection sur une combo, mais il est possible d'ajouter les sélections les unes derrière les autres à une variable texte.

[ouskel'n'or]

Trois questions, donc...
1 - Comment extraire les contacts
Regarde dans la FAQ Excel, chapitre "Comment importer les contacts Outlook dans une feuille Excel, par macro ?" où tu as le code pour placer les contacts dans une "feuille de calculs".
Tu remplaces la feuille de calculs par un userform et une listbox que tu renseignes avec Additem.

2 - Comment récupérer la sélection
Choix = Me.listContacts

3 - Reste plus qu'à placer ce choix dans la zone de texte

Comme je n'ai pas outlook, il m'est difficile de tester mais tu vas faire ça pour moi

[The-Wolf]

Merci beaucoup Heureux-oli mais ta réponse pourrait convenir si je n'avais pas de serveur exchange or j'en ai un avec plus de 1500 objets (user, groupe, groupe de diffusion, ...). C'est pourquoi je voudrai simplement afficher cette boîte de dialogue "Choisir des noms" de microsoft outlook comme je pourrai le faire avec la boite de dialogue "Enregistrer sous" de word

[Heureux-oli]

C'est un peu plus clair !

Essaie ceci :

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
Sub ShowContactsInDialog()
    Dim oDialog As SelectNamesDialog
    Dim oAL As AddressList
    Dim oContacts As Folder
 
    Set oDialog = Application.Session.GetSelectNamesDialog
    Set oContacts = _
        Application.Session.GetDefaultFolder(olFolderContacts)
 
    'Look for the address list that corresponds with the Contacts folder
    For Each oAL In Application.Session.AddressLists
        If oAL.GetContactsFolder = oContacts Then
            Exit For
        End If
    Next
    With oDialog
        'Initialize the dialog box with the address list representing the Contacts folder
        .InitialAddressList = oAL
        .ShowOnlyInitialAddressList = True
        If .Display Then
            'Recipients Resolved
            'Access Recipients using oDialog.Recipients
        End If
    End With
End Sub