fenster in Vordergrund

Public Sub TableToMail_Verbrauchsmaterial()
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
'.to = "thomas.fischer6@volkswagen.de"
.To = Sheets("Bestellung_Verbrauchsmaterial").Range("O9").Value
.Subject = "Bestellung vom " & CStr(Date)
.HTMLBody = RangeToHTML(ActiveSheet, ActiveSheet.Range("A1:K" _
& Cells(Rows.Count, "A").End(xlUp).Row))
'.HTMLBody = RangeToHTML(ActiveSheet, ActiveSheet.Range("A1:J20"))
.Display    'nur Anzeigen
'        .Send       'direkt senden
End With
Set objMail = Nothing
Set objOutlook = Nothing
ActiveSheet.Range("a3:k100").ClearContents
End Sub