gedeelte tekst bold maken bij verzenden mail

[Tamara27]

Beste allemaal,

Ik heb een excelformulier waarvan ik de inhoud via mail zou willen verzenden.
Loopt perfect met onderstaande code:

  strbody = Range("A3") & " " & Range("B3") & vbNewLine & vbNewLine & _
              Range ("A5") & " " & Range("B5") & vbNewLine & vbNewLine & _
              Range("A7") & " " & Range("B7") & vbNewLine & vbNewLine & _
              Range("A9") & vbNewLine & vbNewLine & _
              Range("B9") & vbNewLine & vbNewLine & _
              "*** EINDE BERICHT ***"

Nu zou ik echter graag hebben dat A3, A5, A7 en A9 in het vetgedrukt staan.

Ik heb al zitten zoeken in andere vragen, <b></b> geprobeerd, <strong> ... maar niets lijkt te werken.
Ik vermoed dat dit komt omdat ik niet met een stukje tekst begin, maar met een verwijzing naar mijn formulier.

Kan iemand me zeggen hoe ik dit wel moet doen?

Many thanks!

 

[edmoor]

Daarvoor moet je .HTMLBody gebruiken in plaats van .Body.
Dan kan je vet, cursief, onderlijnd, kleuren e.d. gewoon je werkblad gebruiken, als je ook de functie RangeToHTML van hem meeneemt.

Zie bijvoorbeeld:
https://www.rondebruin.nl/win/s1/outlook/tips.htm

 

[Tamara27]

Het het lukt me nog niet meteen, maar ik ga mij eens verdiepen in de site die je geeft.
Erg bedankt al voor de hulp!

 

[edmoor]

Simpel voorbeeldje voor je gemaakt:

Sub MailIt()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strBody As String
    
    strBody = "<b>" & Range("A3") & "</b>" & " " & Range("B3") & "<br><br>" & _
              "<b>" & Range("A5") & "</b>" & " " & Range("B5") & "<br><br>" & _
              "<b>" & Range("A7") & "</b>" & " " & Range("B7") & "<br><br>" & _
              "<b>" & Range("A9") & "</b>" & "<br><br>" & _
              Range("B9") & "<br><br>" & _
              "*** EINDE BERICHT ***"

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With OutMail
        .To = "Ontvanger@company.nl"
        .CC = ""
        .BCC = ""
        .Subject = "Het onderwerp"
        .HTMLBody = strBody
        .Display
    End With
End Sub

 

[Tamara27]

ooh wauw! Erg bedankt!

Hiermee kan ik zeker verder!!!