Bir e-posta gönderme ve seçilen satırdaki ilgili bilgileri alma

VBA'da yeniyim. Bir K hücresine "Evet" girildiğinde bir e-posta göndermek istiyorum... Buraya kadar geldim ama bir sonraki adımda zorlanıyorum.

E-posta gövdesinin aşağıdaki gibi okumasını istiyorum:

Merhaba, proje önerisi özeti aşağıdadır.

Proje adı: *A hücresinden bilgi*
Açıklama: *B hücresi*
Çözüm: *C hücresi*
Avantajlar: *Hücre D*
Maliyet: *F Hücresi*
Zaman: Hücre *G*
Risk: Hücre *H*
Müşteri(ler): Hücre I
Marka(lar): Hücre J

Saygılarımızla,

*Hücre L*


Şimdiye kadar kullandığım kod aşağıdadır:


Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
Target.Cells.Count > 1 ise Sub Exit
(Kesişme(Target, Range("K:K")) Hiçbir Şey Değilse) Ve (Target.Value = "Evet") O Zaman
Mail_small_Text_Outlook'u arayın
Eğer son
End Sub
Alt Mail_small_Text_Outlook()
xOutApp'i Nesne Olarak Karartın
Nesne Olarak xOutMail'i Karartın
Dize olarak xMailBody'yi karart
xOutApp = CreateObject("Outlook.Application") olarak ayarlayın
xOutMail = xOutApp.CreateItem(0) olarak ayarlayın
xMailBody = "Merhaba" & vbNewLine & vbNewLine & _
"Bu satır 1" & vbNewLine & _
"Bu 2. satır"
On Error Resume Next
xOutMail ile
.To = "e-posta adresi"
.CC = ""
.BCC = ""
.Subject = "hücre değeri testi ile gönder"
.Gövde = xMailBody
.Göster veya .Gönder'i kullanın
İle bitmek
Hata Dönüsünde 0
xOutMail'i ayarla = Hiçbir şey
xOutApp'ı ayarla = Hiçbir şey
End Sub

Bana yardım edebilecek herkese şimdiden teşekkür ederim.