E-mail küldése és releváns információk felvétele a kiválasztott sorban

Új vagyok a VBA-ban. Szeretnék e-mailt küldeni, amikor egy K cellában az "Igen" beírása van... Eddig eljutottam, de a következő lépéssel küszködöm.

Szeretném, ha az e-mail törzse a következőképpen szólna:

Üdvözlöm, a projektjavaslat összefoglalója alább.

Projekt neve: *Információ az A cellából*
Leírás: *B cella*
Megoldás: *C cella*
Előnyök: *D cella*
Költség: *F cella*
Idő: *G* cella
Kockázat: *H* cella
Ügyfél(ek): I. cella
Márka(ok): Cell J

Üdvözlettel,

*L cella*


Alább látható az általam eddig használt kód:


Private Sub Worksheet_Change (ByVal Target mint Range)
Ha Target.Cells.Count > 1, akkor lépjen ki a Sub-ból
Ha (Nem metszéspont(Cél, Tartomány("K:K")) Semmi) És (Cél.Érték = "Igen") akkor
Hívja a Mail_small_Text_Outlook alkalmazást
Ha véget
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp mint objektum
Dim xOutMail mint objektum
Dim xMailBody As String
Set xOutApp = CreateObject("Outlook.Application")
Állítsa be az xOutMail = xOutApp.CreateItem(0)
xMailBody = "Szia" & vbNewLine & vbNewLine & _
"Ez az 1. sor" & vbNewLine & _
"Ez a 2. sor"
On Error Resume Next
Az xOutMail segítségével
.To = "e-mail cím"
.CC = ""
.BCC = ""
.Subject = "küldés cellateszt-teszt segítségével"
.Body = xMailBody
.Display 'vagy use .Send
Vége
Hiba történt GoTo 0
Állítsa be az xOutMail = Semmit
Állítsa be az xOutApp = Semmit
End Sub

Előre is köszönöm annak, aki tud segíteni.