ich verwende folgenden Code zur Erstellung einer HTML-Email.
Kann mir jemand sagen, wie ich hier die Schriftart und -größe ändere, z.B. auf Arial 11 + wie ich einen mehrzeiligen Text für den Mail-Body definieren kann ?
Sub E_Mail_senden()
Quelle = ActiveWorkbook.ActiveSheet.Name
Dim outl, Mail As Object
Set outl = CreateObject("Outlook.Application")
Set Mail = outl.CreateItem(0) 'Wichtigkeit Hoch (2 = hoch, 1 = normal, 0 = niedrig)
Mail.Importance = Sheets(1).Range("A5")
Mail.To = Sheets(1).Range("A3")
Mail.Cc = Sheets(1).Range("A4")
Mail.Subject = Sheets(1).Range("A1")
HTMLBody = "Text1"
'Standardtext
'oder: die aktive Exceldatei als Anhang mitsenden...
'Mail.Attachments.Add ThisWorkbook.FullName
'Mail anzeigen
Mail.Display
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.AppActivate Mail
'Sendet ein "Alt-S", Outlook sendet Mail sofort ohne Sicherheitsabfrage:
'WshShell.SendKeys ("")
Set Mail = Nothing
Set outl = Nothing
Set WshShell = Nothing
End Sub
Viele Grüße und vielen Dank Euch im Voraus, Markus