Schriftgrösse anpassen per VBA im Outlook anpassen

Sub PDFundSenden()
Dim OutlookApp As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object
Dim olOldHtmlBody As String, UserPfad As String, UserDatei As String
Const olBodyFormat As Integer = 2    ''Html-Format
''Desktop-Pfad des angemeldeten Benutzers
UserPfad = Environ("UserProfile") & "\Desktop"
UserDatei = UserPfad & "\Bestellung_" & Format(Date, "yyyy-mm-dd") & ".pdf"
'unberdingt setzen, da Lw 'C' nicht Standard sein muß
ChDrive Left(UserPfad, 1)
ChDir UserPfad
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=UserDatei
'warten, bis Pdf-Datei erstellt
Do While Dir(UserDatei, vbNormal) = ""
DoEvents
Loop
''late binding - kein VCba-Verweis auf M$ Outlook xx.0 Object Library erforderlich
Set OutlookApp = CreateObject("Outlook.application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments
With OutlookMailItem
.BodyFormat = olBodyFormat
.GetInspector.Display
olOldHtmlBody = .HTMLBody
.To = Range("P25")
.CC = Range("P26")
.Subject = Range("P28")
'bei HTMLBody muß vbCrLF gegen "

" ausgetauscht werden
.HTMLBody = "Hoi Ruedi" & "

" & "Die Bestellung findest Du im Anhang." & "

" & "Gerne erhalte ich von Dir eine Bestätigung." & olOldHtmlBody
myAttachments.Add UserDatei
'send
.Display
End With
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
End Sub