Sem nov v VBA. Želim poslati e-poštno sporočilo, ko je v celico K vneseno "Da".... Prišel sem tako daleč, vendar se mučim z naslednjim korakom.

Želim, da se telo e-poštnega sporočila glasi takole:

Pozdravljeni, povzetek predloga projekta spodaj.

Ime projekta: *Informacije iz celice A*
Opis: *celica B*
Rešitev: *celica C*
Prednosti: *Celica D*
Cena: *Celica F*
Čas: Celica *G*
Tveganje: celica *H*
Stranka(e): Celica I
Znamka(e): Cell J

Prijazen pozdrav,

*Celica L*


Spodaj je koda, ki sem jo do zdaj uporabil:


Zasebni poddelovni list_Spremeni (ByVal Target As Range)
Če je Target.Cells.Count > 1, potem Exit Sub
Če (Not Intersect(Target, Range("K:K")) ni nič) in (Target.Value = "Yes") potem
Pokličite Mail_small_Text_Outlook
Konec Če
End Sub
Sub Mail_small_Text_Outlook()
Zatemnite xOutApp kot objekt
Zatemni xOutMail kot objekt
Zatemni xMailBody kot niz
Nastavi xOutApp = CreateObject("Outlook.Application")
Nastavi xOutMail = xOutApp.CreateItem(0)
xMailBody = "Živjo" & vbNewLine & vbNewLine & _
"To je vrstica 1" & vbNewLine & _
"To je vrstica 2"
On Error Resume Next
Z xOutMail
.To = "e-poštni naslov"
.CC = ""
.BCC = ""
.Subject = "pošlji s preskusom vrednosti celice"
.Telo = xMailBody
.Prikaži ali uporabi .Pošlji
Končaj s
Ob napaki Pojdi na 0
Nastavite xOutMail = Nič
Nastavite xOutApp = Nič
End Sub

Že vnaprej hvala vsem, ki mi lahko pomagajo.