Neue Mail mit größerer Schrift

Ja – im klassischen Outlook lässt sich die Schriftgröße dauerhaft einstellen. VBA benötigen Sie nur, wenn einzelne automatisch erzeugte Mails abweichend formatiert werden sollen.

Dauerhaft ändern
Datei → Optionen → E-Mail
Unter Nachrichten verfassen auf Briefpapier und Schriftarten
Register Persönliches Briefpapier
Unter Zum Verfassen einer Nachricht auf Schriftart
Gewünschten Schriftgrad, etwa 14, auswählen
Dreimal mit OK bestätigen

Für Antworten und Weiterleitungen muss die Einstellung separat vorgenommen werden. Die Änderung gilt sofort. Microsoft-Anleitung

Neue Mail per VBA mit 14 Punkt

Das folgende Makro funktioniert auch aus Excel oder Word heraus. Es öffnet eine neue HTML-Mail, lässt eine vorhandene Signatur unverändert und stellt die Schriftgröße für den anschließend eingegebenen Text auf 14 Punkt:

Sub NeueMailMit14Punkt()

Const olMailItem As Long = 0
Const olFormatHTML As Long = 2

Dim olApp As Object
Dim olMail As Object
Dim wdDoc As Object
Dim wdRange As Object

On Error Resume Next
Set olApp = GetObject(, „Outlook.Application“)
If olApp Is Nothing Then
Set olApp = CreateObject(„Outlook.Application“)
End If
On Error GoTo 0

Set olMail = olApp.CreateItem(olMailItem)

With olMail
.BodyFormat = olFormatHTML
.Display ‚lädt gegebenenfalls die Signatur
Set wdDoc = .GetInspector.WordEditor
End With

‚Cursor an den Anfang der Nachricht setzen
Set wdRange = wdDoc.Range(0, 0)
wdRange.Select

With wdDoc.Application.Selection.Font
.Size = 14
‚.Name = „Arial“ ‚optional
End With

End Sub
Outlook verwendet Word als Nachrichteneditor; deshalb erfolgt die Formatierung hier über WordEditor. Microsoft-VBA-Dokumentation<
Wenn der Nachrichtentext ebenfalls automatisch eingefügt werden soll:

olMail.HTMLBody = _
„

“ & olMail.HTMLBody

Das Anhängen von olMail.HTMLBody erhält eine bereits geladene Outlook-Signatur. Bei Nur-Text-Mails kann keine übertragbare Schriftgröße festgelegt werden.