VBA envoyer mail plusieurs destinataires quand modification cellule

Résolu/Fermé
Julien - 15 févr. 2021 à 17:34
 Julien - 16 févr. 2021 à 08:46
Bonjour à tous,
Je ne maitrise pas le VBA et me retrouve avec un petit problème sur un code que j'ai copié...
En fait, je souhaite qu'un mail soit envoyer à plusieurs adresses lorsqu'une cellule de mon tableau EXCEL est modifiée.
Le code ci-dessous fonctionne très bien mais uniquement pour 1 adresse mail. Je n'arrive pas à ajouter une seconde adresse malgré mes très nombreux essais...
Pourriez vous m'aider svp?
Merci beaucoup.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Adresse As String, olApp As Object, M As Object
If Target.Column = 4 And Target.Row > 1 Then
Adresse = "***@***"
Set olApp = CreateObject("Outlook.Application")
Set M = olApp.CreateItem(olMailItem)
With M
.Subject = "Alerte palettes à contrôler"
.Body = "de nouvelles palettes sont à contrôler "
.Recipients.Add Adresse
.Send
End With
End If
End Sub

2 réponses

m@rina
Messages postés
17465
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
21 juin 2022
10 927
Modifié le 15 févr. 2021 à 19:57
Bonjour,

Essaie plutôt ça (à la place de "Recipients...")

With M
.To = "mail1@***.com;mail2@***.com"

etc. en séparant chaque adresse par un point virgule

Tu peux bien entendu mettre la liste dans ta variable Adresse.

m@rina

1
Bonjour M@rina,
Génial, cela fonctionne! Merci beaucoup.
Comme dit le proverbe "1 qui sait vaut mieux que 10 qui cherchent!"
0