Een celwaarde via VBA in HTMLbody van mail krijgen

[luibak]

Beste forum gebruikers,

Ik heb een VBA code die voor mij automatisch een mail maakt met een aantal stukken tekst en waardes uit excel.
Deze code staat in .body en is dus zonder opmaak.
Ik heb inmiddels veel gezocht en uitgeprobeerd om deze code om te zetten naar HTML code.
De tekst kan ik inmiddels omzetten en voorzien van opmaak, ik krijg alleen niet de waardes uitcellen er dan nog in
Hier een stukje van wat de code nu is.

.To = cell.Value
                .Subject = "Offerte aanvraag " & Sheets("Calculatie info").Range("B3").Value
                .body = "Geachte " & (Cells(cell.Row, "AK").Value) & "," & vbCrLf _
                & vbNewLine & (hierbij) & Sheets("Overzicht inkoop calc.").Range("N11").Value

Dus nu mijn vraag hoe kan ik er voor zorgen dat deze code ook gebruikt kan worden incombinatie met .HTMLbody

 

[spaarie]

Ik zou hier eens kijken
http://www.rondebruin.nl/mail/folder3/mail4.htm

 

[luibak]

Spaarie alvast bedankt ik ben weer iets verder gekomen.

Nu mijn volgende vraagje ik heb nu de onderstaande code hoe krijg ik nu bijv Sheets("Overzicht inkoop calc.").Range("N11").Value Dik gedrukt. ik heb het al geprobeerd met <B> en </B> maar dan geeft ie steeds een fout melding bij de "gewoone" tekst lukt het wel via die manier

Sub Mail_Selection_Range_Outlook_Body()
' Don't forget to copy the function RangetoHTML in the module.
' Working in Office 2000-2010
    Dim OutApp As Object
    Dim OutMail As Object
    Dim StrBody As String

  

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

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

    StrBody = "This is line 1" & "<br>" & _
              Sheets("Overzicht inkoop calc.").Range("N11").Value & "<br>" & _
              "This is line 3" & "<br><br><br>"

    On Error Resume Next
    With OutMail
        .To = "luibak@hotmail.nl"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .HTMLBody = StrBody
        .Display   'or use .Display
    End With
    On Error GoTo 0

    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

 

[spaarie]

En zo?

Sheets("Overzicht inkoop calc.").Range("N11").Font.Bold = True

 

[luibak]

Helaas werkt het niet ik krijg respectivelijk

"<B>This is line 1</B>" & "<br>" & _
              (Sheets("Overzicht inkoop calc.").Range("N11").Font.Bold = True) & "<br>" & _
              "This is line 3" & "<br><br><br>"

This is line 1
Waar
This is line 3

en zonder haakje

Onwaar

 

[spaarie]

En zo doet ie het echt niet?

StrBody = "This is line 1" & "<br>" & _
              "<b>" & Sheets("Overzicht inkoop calc.").Range("N11").Value & "</b>" & "<br>" & _
              "This is line 3" & "<br><br><br>"

 

[luibak]

Dat is hem onwijs bedankt ik heb nooit het & er tussen gezet.
Nu kan ik weer verder en me hele code gaan aanpassen nu met opmaak.