XL 2016 envois de mails à plusieurs destinataires

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

submarine22

XLDnaute Junior
Bonjour à tous,
voila mon soucis j'ai un fichier excel qui est partagé, et j aimerais que cela envois un mail à plusieurs destinataire lorsqu'une modification à eu lieu.
j' ai trouvé un code en fouillant un peu, qui fonctiuonne très bien des lors qu il n y a qu une adresse mais dès que j'en rajoute cela bug... quelqu un pourrais-t-il m aider???
voici le code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim ol As Object, monmail As Object

DisplayAlerts = False

Set ol = CreateObject("outlook.application")

Set monmail = ol.CreateItem(olMailItem)

monmail.To = "fabrice@truc.fr";"yann@truc.fr";"nadine@truc.fr" (bien sur les adresses sont erronées pour des raisons de confidentialité)

monmail.Subject = "Modification du fichier de formation"

monmail.Body = "des Modifications ont été apportées dans le fichier"

monmail.Send


Set ol = Nothing

End Sub.

Merci par avance.
 
solution trouvée

merci
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim ol As Object, monmail As Object

DisplayAlerts = False

Set ol = CreateObject("outlook.application")

Set monmail = ol.CreateItem(olMailItem)

monmail.To = "fabrice@truc.fr;yann@truc.fr;nadine@truc.fr" (bien sur les adresses sont erronées pour des raisons de confidentialité)

monmail.Subject = "Modification du fichier de formation"

monmail.Body = "des Modifications ont été apportées dans le fichier"

monmail.Send


Set ol = Nothing

End Sub.

bon week end à tous
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
18
Affichages
2 K
D
Réponses
3
Affichages
8 K
Retour