Jeg er ny til VBA. Jeg søger at sende en e-mail, når en celle K har "Ja" indtastet.... Jeg er nået så langt, men kæmper med det næste trin.

Jeg vil gerne have, at e-mailens brødtekst skal læses som nedenfor:

Hej, opsummering af projektforslag nedenfor.

Projektnavn: *Information fra celle A*
Beskrivelse: *celle B*
Løsning: *celle C*
Fordele: *Celle D*
Pris: *Celle F*
Tid: Celle *G*
Risiko: Celle *H*
Kunde(r): Celle I
Mærke(r): Cell J

Venlig hilsen,

*Celle L*


Nedenfor er koden jeg har brugt indtil videre:


Privat Sub Worksheet_Change (ByVal Target As Range)
Hvis Target.Cells.Count > 1 Afslut Sub
Hvis (Ikke skærende(Mål, Rækkevidde("K:K")) Er Intet) Og (Target.Value = "Ja") Så
Ring til Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp som objekt
Dim xOutMail som objekt
Dim xMailBody As String
Indstil xOutApp = CreateObject("Outlook.Application")
Indstil xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hej" & vbNewLine & vbNewLine & _
"Dette er linje 1" & vbNewLine & _
"Dette er linje 2"
On Error Resume Next
Med xOutMail
.Til = "e-mailadresse"
.CC = ""
.BCC = ""
.Subject = "send med celleværditest"
.Body = xMailBody
.Vis 'eller brug .Send
Slut med
På Fejl GoTo 0
Indstil xOutMail = Ingenting
Indstil xOutApp = Ingenting
End Sub

På forhånd tak til alle der kan hjælpe mig.