Fout in mail

[mrnico]

Hallo ik heb een simpele mail verstuurknop gemaakt

nu wil ik daar nog een extra optie toevoegen dat je een tekst kan toevoegen aan de mail

maar hier geeft hij een fout

als ik ook c06 laat toevoegen

Sub werkblad_waarden_in_email()
c05 = "<table border=1 bgcolor=FFFFFF>"



c01 = "Geachte klant."

c02 = "<br></br>"

c03 = "Hierbij ontvant u de managment reportage van"

c04 = Date

c06 = Sheets("mailtekst").UsedRange




sn = Sheets("Managment").UsedRange

For j = 1 To UBound(sn)
c05 = c05 & "<tr><td>" & Join(Application.Index(sn, j), "</td><td>") & "</td></tr>"
Next
c05 = c05 & "</table><P></P><P></P>"




With CreateObject("outlook.application").CreateItem(0)
.To = "e.mail@mail.com"
.Subject = "Managment " & Date
.HTMLBody = c01 & c02 & c03 & c02 & c04 & c02 & c05 & c02 &c06
.Send
End With
End Sub

Bekijk bijlage mail.xlsm

 

[HSV]

c06 = Sheets("mailtekst").Range("B2").Value

 

[mrnico]

en als ik er nu meer regels in wil hebben

hij zegt bij mij steeds typen komen niet overeen

 

[HSV]

Bv.

sq = Sheets("mailtekst").[b2].CurrentRegion.Value
For jj = 1 To UBound(sq)
 c06 = c06 & sq(jj, 1) & "<br></br>"
Next jj