26.09.2022, 14:27
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.
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