Envoi d'un e-mail et récupération des informations pertinentes dans la ligne sélectionnée

Je suis nouveau sur VBA. Je cherche à envoyer un e-mail lorsqu'une cellule K a "Oui" est entré .... J'en suis arrivé là mais j'ai du mal avec l'étape suivante.

J'aimerais que le corps de l'e-mail se lise comme suit :

Bonjour, résumé de la proposition de projet ci-dessous.

Nom du projet : *Info de la cellule A*
Descriptif : *cellule B*
Solution : *cellule C*
Avantages : *Cellule D*
Coût : *Cellule F*
Heure : Cellule *G*
Risque : Cellule *H*
Client(s) : Cellule I
Marque(s): Cellule J

Sincères amitiés,

*Cellule L*


Ci-dessous le code que j'ai utilisé jusqu'à présent:


Private Sub Worksheet_Change (Cible ByVal en tant que plage)
Si Target.Cells.Count > 1 Alors Quittez Sub
Si (Not Intersect(Target, Range("K:K")) n'est rien) And (Target.Value = "Yes") Alors
Appelez Mail_small_Text_Outlook
Si fin
End Sub
Sous-mail_small_Text_Outlook()
Dim xOutApp en tant qu'objet
Estomper xOutMail en tant qu'objet
Estomper xMailBody en tant que chaîne
Set xOutApp = CreateObject("Outlook.Application")
Définir xOutMail = xOutApp.CreateItem(0)
xMailBody = "Bonjour" & vbNewLine & vbNewLine & _
"Ceci est la ligne 1" & vbNewLine & _
"C'est la ligne 2"
On Error Resume Next
Avec xOutMail
.To = "adresse e-mail"
.CC = ""
.BCC = ""
.Subject = "envoyer par test de valeur de cellule"
.Corps = xMailBody
.Afficher 'ou utiliser .Envoyer
Terminer par
En cas d'erreur GoTo 0
Définir xOutMail = Rien
Définir xOutApp = Rien
End Sub

Merci, d'avance, à tous ceux qui pourront m'aider.