Tabelle per Mail senden

Sub Blattsenden()
Sheets("Tabelle1").Copy
On Error Resume Next
ActiveWorkbook.SendMail Recipients:="Otto@gmx.de", Subject:="Testmail"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
If Err.Number > 0 Then MsgBox "Mail wurde nicht gesendet!!", , "   xxxxxx !!"
On Error GoTo 0
End Sub

Damit wird nur die Tabelle1 aus der Quelldatei als neue Arbeitsmappe "Mappe2.xls" versendet.
Ich möchte zusätzlich den neuen Tabellennamen festlegen,
einen Mailtext (.Body) vorgeben
und das vor dem Senden das Mailfenster (.Display) aufgeht.
Mailprogramm ist Outlook
Kann da jemand helfen
Gruß Andreas