[Karl99]

Liebe Leute im Forum!

Habe das Problem, dass ich eine Schrift (Times New Roman) und eine Schriftgröße (12) in einem Outlook-Makro zuweisen möchte, ohne auf HTML-Body zu ändern.

So wieht mein momentaner Script aus, dem die optische Änderung beigefügt werden soll..
Danke
Karl

Sub layout()
Dim obj As Object
Dim aText As String

aText = “Testbeispiel”

Set obj = Application.ActiveInspector.CurrentItem

With obj
.Body = aText & .Body
End With

End Sub