Schriftgröße in Makro für Email-Versand hinterlegen

[el-rettev]

Hallo,

ich habe ein Makro geschrieben um eine Excel als Anhang per Outlook zu versenden.
Das Makro läuft soweit, aber nun geht es um einen Feinheit:
Der E-Mail-Text wird nicht in der gleichen Größe wie meine Firmensignatur ausgegeben. Die Schriftart Calibri passt.
Ist es möglich die Schriftgröße im Code mitzugeben? 

Vielen Dank.

Code:

Sub Email_versenden()

'Auf erste Seite springen und speichern
Sheets("Tabelle1").Select
Range("A7").Select
ActiveWorkbook.Save

'Zurückspringen zur Statistik
Sheets("Statistik").Select
Range("A3:G6").Select

Dim oApp As New Outlook.Application
Dim oMail As Outlook.MailItem

Set oMail = oApp.CreateItem(olMailItem)

With oMail

    .BodyFormat = olFormatHTML
    .Display
    .To = Sheets("Admin").Range("A2").Value
    .Subject = Sheets("Admin").Range("E6").Value
   
    'Text soll in Schriftgröße 11 Calibri ausgegeben werden
    .HTMLBody = "Hallo zusammen,<br>anliegend die aktuelle Statistik." & .HTMLBody
   
    .Attachments.Add "pfad.xlsm"
    .Save
   
End With


End Sub

[Der Steuerfuzzi]

Hallo,

nachdem die Mail im html-Format erstellt wird, würde ich sagen über das html-tag

Code:

<FONT SIZE = xx>

Bin kein html-Spezialist aber vermutlich muss das ganze in einen Absatz rein, also

Code:

<p font-size = xx>Text</p>

oder so ähnlich.