Sub Send_Excel_Message(ByVal ZeilenIndex As Long)
Dim MyMessage As Object, MyOutApp As Object
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
Dim Vorname As Long
Dim Nachname As Long
Dim EmailAdresse As Long
Dim Zeile As Long
Vorname = Cells(ZeilenIndex, 21)
Nachname = Cells(ZeilenIndex, 22)
EmailAdresse = Vorname + "." + Nachname + "@.de.bosch.com"
.To = EmailAdresse
.Subject = "Erinnerung Einlagerung AML" & Date & ", " & Time
.HTMLBody = "Sehr geehrter Herr " + Nachname + "," + vbNewLine + "Ich möchte Sie daran erinnern, dass sich die von Ihnen eingelagerte Maschine X ...."
.Save
SendKeys "%S"
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub