Tekstkleur VBA excel 2013

[Khalid23]

Hallo
ik heb een body voor een email geschreven in VBA.
Ik wil dat “Regel2” Vet rood wordt.
Hoe kan ik dat bepalen in VBA


Alvast bedankt,

    strbody = "regel1" & vbNewLine & vbNewLine & _
              "regel2" & vbNewLine & _
              "regel3 " & vbNewLine & _
              "regel4" & vbNewLine & _
              "regel5" & vbNewLine & _
              " " & vbNewLine & _
              "Met vriendelijke groet," & vbNewLine & _
              "naam"

 

[snb]

Niet.

 

[lam201]

Snb, kort door de bocht.
Maar waar .

een oplossing zou kunnen zijn je bericht eerst weg te schrijven op een werkblad.
waarbij elke regel in een cel komt te staan. De tekst in elke afzonderlijke cel is dan eenvoudig te kleuren.

gebruik deze code Function RangetoHTML(rng As Range) van Ron de Bruin om je range in een email te plakken.
RangetoHTML


Lambert

 

[Gijsbert1]

Als ik onderstaande run komt het wel mooi in een cel te staan:

RowOne = "regel1" & vbNewLine & vbNewLine
RowTwo = "regel2" & vbNewLine
strbody = RowOne & RowTwo & _
    "regel3 " & vbNewLine & _
    "regel4" & vbNewLine & _
    "regel5" & vbNewLine & _
    " " & vbNewLine & _
    "Met vriendelijke groet," & vbNewLine & _
    "naam"

ActiveCell.Value = strbody
   
With ActiveCell.Characters(Len(RowOne) + 1, Len(RowTwo)).Font
    .FontStyle = "Vet"
    .Color = -16776961
End With

 

[lam201]

Gijsbert,

Ja. Maar ook hier wordt de string eerst in een werkblad gezet.
Mijn veronderstelling is dat de string van TS rechtstreeks in een emailbody geplaatst wordt.
En dan is de kleuring (voor zover ik weet) niet mogelijk.
Dit valt echter niet te controleren zonder de rest van de code.

Maar correct me if i'm wrong.
Ik leer ook graag bij.

Lambert

 

[edmoor]

Met de oplossing van lam201 moet je dan ook .HTMLBody gebruiken in plaats van .Body

 

[Gijsbert1]

Lambert,

Je hebt daar gelijk in hoor! Maar het geeft wellicht stof tot nadenken voor TS.

 

[snb]

Met htmlbody kan het wel:

 .htmlbody =replace("regel1~~<font color=""red"">regel2</font>~regel3~regel4~regel5~~Met vriendelijke groet,~naam",~",vbLf)