Mail versenden + Format bestimmen

Sub send_mail_outlook(ama As String, abet As String, abody As String, amn As String)
Dim OutApp As Object, Mail As Object
Dim Nachricht
'Variablen müssen bei jeder Schleife neu initalisiert werden
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = ama
.Subject = abet
.Body = abody & amn
'Hier wird die Mail zuerst angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
.Send
End With
'Variablen zurücksetzen sonst geht es nich
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub