Hallo,
versuchs mal mit diesem Makro,
Pfad für Zwischenspeicherung ändern.
E-Mail Adresse ändern.
Gruß
fedjo
Option Explicit
Sub Tabelle_Outlook_Senden()
Application.ScreenUpdating = False
Dim Nachricht As Object, OutApp As Object
Dim SavePath As String
Dim AWS As String
SavePath = "C:\Dokumente und Einstellungen\Admin\Eigene Dateien" 'Pfad ändern
Set OutApp = CreateObject("Outlook.Application")
Sheets("NAME").Copy
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name
AWS = ActiveWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "mustermann@freenet.de" 'E-Mail Adresse ändern
.Subject = "Aktuelle Umsatzzahlen "
.Attachments.Add AWS
.HTMLBody = "Deinen Text eingeben."
.Display
Windows("Name.xls").Close
Kill AWS
End With
End Sub