Я новачок у VBA. Я хочу надіслати електронний лист, коли в клітинку K введено «Так».... Я зайшов до цього місця, але мені важко зробити наступний крок.

Я хочу, щоб текст електронної пошти виглядав так:

Вітаю, резюме проектної пропозиції нижче.

Назва проекту: *Інформація з клітинки A*
Опис: *комірка B*
Рішення: *комірка C*
Переваги: ​​*Cell D*
Вартість: *Cell F*
Час: Cell *G*
Ризик: клітинка *H*
Замовник(и): клітина I
Бренд(и): Cell J

З повагою,

*Комірка L*


Нижче наведено код, який я використовував досі:


Приватний допоміжний робочий лист_Change(ByVal Target As Range)
Якщо Target.Cells.Count > 1, то вийдіть із Sub
Якщо (Not Intersect(Target, Range("K:K")) Is Nothing) And (Target.Value = "Yes") Then
Телефонуйте Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Зменшіть xOutApp як об’єкт
Змінити xOutMail як об’єкт
Заглушити xMailBody як рядок
Встановіть xOutApp = CreateObject("Outlook.Application")
Встановити xOutMail = xOutApp.CreateItem(0)
xMailBody = "Привіт" & vbNewLine & vbNewLine & _
"Це рядок 1" & vbNewLine & _
«Це рядок 2»
On Error Resume Next
За допомогою xOutMail
.To = "адреса електронної пошти"
.CC = ""
.BCC = ""
.Subject = "відправити тестом значення комірки"
.Body = xMailBody
.Відобразити або використовувати .Send
Кінець з
При помилці GoTo 0
Встановіть xOutMail = Нічого
Встановіть xOutApp = Нічого
End Sub

Наперед дякую всім, хто зможе мені допомогти.