Sub mail_aus_vorlage()
Dim outlook As Object
Dim neueNachricht As Object
Dim betreff As String
Dim text As String
Set outlook = CreateObject("Outlook.Application")
Set neueNachricht = outlook.CreateItemFromTemplate("meni Pfad")
neueNachricht.display
betreff = neueNachricht.Subject
text = neueNachricht.body
betreff = Format(Date, "yyyymmdd") & betreff
neueNachricht.Subject = betreff
text = Replace(text, "<DATUM>", Date)
text = Replace(text, "<UHRZEIT>", Time)
neueNachricht.body = text
End Sub