Odeslání e-mailu a vyzvednutí relevantních informací ve vybraném řádku

Jsem nový ve VBA. Chci poslat e-mail, když je v buňce K zadáno "Ano"... Dostal jsem se tak daleko, ale bojuji s dalším krokem.

Chci, aby se tělo e-mailu četlo takto:

Dobrý den, shrnutí návrhu projektu níže.

Název projektu: *Informace z buňky A*
Popis: *buňka B*
Řešení: *buňka C*
Výhody: *Buňka D*
Cena: *Cell F*
Čas: Cell *G*
Riziko: Buňka *H*
Zákazníci: Buňka I
Značky: Cell J

S přátelským pozdravem,

*Buňka L*


Níže je kód, který jsem dosud používal:


Soukromá dílčí tabulka_Změna (ByVal Target As Range)
Pokud Target.Cells.Count > 1, pak Exit Sub
If (Not Intersect(Target, Range("K:K")) Is Nothing) And (Target.Value = "Yes") Then
Zavolejte Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp jako objekt
Dim xOutMail jako objekt
Dim xMailBody jako řetězec
Set xOutApp = CreateObject("Outlook.Application")
Nastavit xOutMail = xOutApp.CreateItem(0)
xMailBody = "Ahoj" & vbNewLine & vbNewLine & _
"Toto je řádek 1" & vbNewLine & _
"Toto je řádek 2"
On Error Resume Next
S xOutMail
.To = "e-mailová adresa"
.CC = ""
.BCC = ""
.Subject = "odeslat testem hodnoty buňky"
.Tělo = xMailBody
.Zobrazte 'nebo použijte .Send
Konec s
Při chybě GoTo 0
Nastavte xOutMail = nic
Nastavte xOutApp = Nic
End Sub

Předem děkuji každému, kdo mi může pomoci.