Bonjour,

Je cherche à automatiser l'envoie d'un document par mail Outlook à partir d'un fichier Excel.
Pour cela, je souhaite que l'utilisateur puisse aller sélectionner dans le carnet d'adresse Outlook les destinataires du document final.

J'ai réussi à partir du code ci-dessous à faire apparaître le carnet d'adresse Outlook.
Néanmoins, je n'arrive pas à y récupérer les personnes qui sont ajoutées aux champs "A", "CC" et "CCi".

Jusqu'à maintenant, je me suis basé sur l'aide MSDN suivante :
https://msdn.microsoft.com/fr-fr/lib.../ff863291.aspx

Pourriez-vous m'éclairer car soit j'utilise mal dans mes différents tests les propriétés citées, soit je ne comprends pas les explications figurant sur cette page.

Merci d'avance.
Chtik

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
 
Sub MailOutlook()
Dim Email As Outlook.Application
Dim EmailMsg As Outlook.MailItem
 
Set Email = CreateObject("Outlook.Application")
Set EmailMsg = Email.CreateItem(olMailItem)
 
test = Email.Session.GetSelectNamesDialog.Display
 
' Récupérer les destinataires sélectionnés dans le carnet d'adresse
If Email.Session.GetSelectNamesDialog.ForceResolution = True Then
   Debug.Print Email.Session.GetSelectNamesDialog.Recipients
Else
   MsgBox "Aucun destinataire sélectionné", vbCritical, "Erreur"
End If
 
EmailMsg.Display
 
Set EmailMsg = Nothing
Set Email = Nothing
End Sub