Sunt nou în VBA. Caut să trimit un e-mail atunci când o celulă K a introdus „Da”... Am ajuns până aici, dar mă confrunt cu pasul următor.

Aș dori ca corpul e-mailului să citească după cum urmează:

Bună, rezumatul propunerii de proiect de mai jos.

Numele proiectului: *Informații din celula A*
Descriere: *celula B*
Soluție: *celula C*
Beneficii: *Celula D*
Cost: *Celula F*
Ora: Celula *G*
Risc: Celula *H*
Client(i): Celula I
Marca(i): Cell J

Cu stima,

*Celula L*


Mai jos este codul pe care l-am folosit până acum:


Subsol de lucrări private_Change (țintă ByVal ca rază de acțiune)
Dacă Target.Cells.Count > 1, apoi Ieșiți din sub
Dacă (Nu se intersectează(Target, Range("K:K"))) este Nimic) și (Target.Value = "Yes"), atunci
Apelați Mail_small_Text_Outlook
Final, dacă
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp ca obiect
Dim xOutMail ca obiect
Dim xMailBody ca șir
Setați xOutApp = CreateObject("Outlook.Application")
Setați xOutMail = xOutApp.CreateItem(0)
xMailBody = „Bună ziua” & vbNewLine & vbNewLine & _
„Aceasta este linia 1” & vbNewLine & _
„Aceasta este linia 2”
La data de eroare CV următoare
Cu xOutMail
.To = „adresă de e-mail”
.CC = ""
.BCC = ""
.Subject = "trimite prin testul valorii celulei"
.Body = xMailBody
.Afișează sau folosește .Trimite
Se termina cu
La eroare GoTo 0
Setați xOutMail = Nimic
Setați xOutApp = Nimic
End Sub

Multumesc anticipat celor care ma pot ajuta.