Bonjour,
Je me suis inspiré des forums pour réussir à envoyer une feuille d'un classeur excel à 3 destinataires via outlook. ça marche.
Mais, je souhaiterais en plus de ces 3 destinataires, envoyer en même temps en copie (CC) à 3 autres destinataires.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Sub Envoi() Dim Dest(3) As String, Sujet As String Sheets("Synthese").Select 'Saisir le nom exact la feuille du classeur ActiveSheet.Copy 'crée une copie de la feuille active Dest(0) = "xxxxxx@aaaa.fr" 'Saisir l'adresse mail 1 Dest(1) = "yyyyyyy@aaaa.fr.fr" 'Saisir l'adresse mail 2 Dest(2) = "ZZZZZ@aaaa.fr" 'Saisir l'adresse mail 2 Sujet = "Envoi de la feuille de synthèse " ActiveWorkbook.SendMail Dest, Sujet, True Application.DisplayAlerts = False ActiveWorkbook.Close 'ferme la copie de la feuille active Application.DisplayAlerts = True MsgBox ("Synthèse envoyée") End Sub
Auriez-vous une solution ?
Merci par avance.
Partager