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
Partager