lettertype en kleur bepalen in VBA email

[Khalid23]

Hallo,
ik heb een stukje code gebruikt van Ron De Bruin voor het versturen van een e-mail vanuit excel. Het werkt op dit moment prima.
Alleen ik wil de tweede regel laten uitspringen door groter lettertype en in kleur ( bv rood)
Hoe kan ik lettertype en kleur bepalen in VBA?
Heb al van alles geprobeerd, maar blijkbaar zie ik iets over het hoofd.
Kan er mij iemand op weg helpen?
alvast bedankt!

Sub Send_Files()

    Dim OutApp As Object
    Dim OutMail As Object
    Dim sh As Worksheet
    Dim cell As Range
    Dim FileCell As Range
    Dim rng As Range

    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With

    Set sh = Sheets("Sheet1")

    Set OutApp = CreateObject("Outlook.Application")

    For Each cell In sh.Columns("C").Cells.SpecialCells(xlCellTypeConstants)

        'Enter the path/file names in the C:Z column in each row
        Set rng = sh.Cells(cell.Row, 1).Range("H1:Z1")

        If cell.Value Like "?*@?*.?*" And _
           Application.WorksheetFunction.CountA(rng) > 0 Then
            Set OutMail = OutApp.CreateItem(0)
Dim strbody As String
              strbody = "Geachte heer/mevrouw," & vbNewLine & vbNewLine & _
              "In het bijgevoegd bestand tref u............." & vbNewLine & _
              "Regel 2" & vbNewLine & vbNewLine & _
              "Met vriendelijke groet," & vbNewLine & _
              "Naam" & vbNewLine & _
              "Bedrijf" & vbNewLine & _
              "T: +31 ....." & vbNewLine & _
              "E-mail : AAA@help.com"

            With OutMail
                .To = cell.Value
                .Subject = "Subject "
                .Body = strbody
            
            

                For Each FileCell In rng.SpecialCells(xlCellTypeConstants)
                    If Trim(FileCell) <> "" Then
                        If Dir(FileCell.Value) <> "" Then
                            .Attachments.Add FileCell.Value
                        End If
                    End If
                Next FileCell

                .Send  'Or use .Display
            End With

            Set OutMail = Nothing
        End If
    Next cell

    Set OutApp = Nothing
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub

 

[SjonR]

Probeer dit eens.

Dim strbody As String
              strbody = "Geachte heer/mevrouw," & vbNewLine & vbNewLine & _
              "In het bijgevoegd bestand tref u............." & vbNewLine & _
              "<font size=""12"" face=""Arial"" color=""red"">" & "Regel 2" & "</font>" & vbNewLine & vbNewLine & _
              "Met vriendelijke groet," & vbNewLine & _
              "Naam" & vbNewLine & _
              "Bedrijf" & vbNewLine & _
              "T: +31 ....." & vbNewLine & _
              "E-mail : AAA@help.com"

 

[Khalid23]

Probeer dit eens.

Dim strbody As String
              strbody = "Geachte heer/mevrouw," & vbNewLine & vbNewLine & _
              "In het bijgevoegd bestand tref u............." & vbNewLine & _
              "<font size=""12"" face=""Arial"" color=""red"">" & "Regel 2" & "</font>" & vbNewLine & vbNewLine & _
              "Met vriendelijke groet," & vbNewLine & _
              "Naam" & vbNewLine & _
              "Bedrijf" & vbNewLine & _
              "T: +31 ....." & vbNewLine & _
              "E-mail : AAA@help.com"

Bedankt voor de snelle reactie
Ik heb net geprobeerd maar het werkt helaas niet. Hier het resultaat:

Geachte heer/mevrouw,
In het bijgevoegd bestand tref u.............
<font size="12" face="Arial" color="red">Regel 2</font>
Met vriendelijke groet,
Naam
Bedrijf
T: +31 .....
E-mail : AAA@help.com

 

[edmoor]

Gebruik HTML code en dan .HTMLBody in plaats van .Body
Zie:
https://www.rondebruin.nl/win/s1/outlook/bmail10.htm

 

[Cobbe]

Zorg er voor dat aales achter NewLine tot AAA@help.com op 1(EEN) lijn komt te staan, dan werkt het wel.