Microsoft 365 Générer un mail Outlook via Excel si modification colonne Excel

Volunteer10

XLDnaute Nouveau
Bonjour,

Je débute sur Excel et aurais besoin d'une macro permettant de générer un e-mail Outlook si une case d'une colonne est non vide, et je souhaite pouvoir utiliser cette même formule pour plusieurs colonnes mais avec des destinataires différents :
Exemple si la cellule K5 est pleine alors mail à K@kkkk.com, si ma cellule L8 est pleine alors mail à L@lll.com.
Il faudrait que la boîte de dialogue Outlook s'affiche et non que le mail s'envoie automatiquement, mais que dans la macro le destinataire, les destinataires en copie, l'objet et le corps du texte puissent être renseignés.

J'ai trouvé cette macro qui fonctionne pour une cellule spécifique mais pas pour une colonne entière, et je n'arrive pas à la "dupliquer" pour avoir la même formule mais destinataire différent pour les autres colonnes :
Dim xRg As Range
'Update by Extendoffice 2018/3/7
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Set xRg = Intersect(Range("K5"), Target)
If xRg Is Nothing Then Exit Sub
If Target.Value <> "" Then
Call Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "exemple@mail.fr"
.CC = ""
.BCC = ""
.Subject = "send by cell value test"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub

Des idées ?

Merci
 

Statistiques des forums

Discussions
299 703
Messages
1 978 596
Membres
206 300
dernier inscrit
gauthier75011