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

Hallo fedjo,

danke für die Antwort - ist aber leider nicht ganz die Lösung die ich gesucht habe.
Ich habe eine Excel Datei mit 23 Tabellenblätter die ich auf einmal an 23 verschiedene eMailadressen versenden möchte - ohne nochmal extra im Mailprogramm auf senden zu gehen. Mit meinem Script geht das - nur leider kann ich keinen Text einfügen - es sollte sowieso ein Standardtext in allen 23 Mails sein.
Ich werde mich also mit dem Betreff zufrieden geben.

Trotzdem nochmals Danke.
TLM0901

Hallo TLM0901 ,
wenn ich das jetzt richtig verstanden habe, dann soll eine Excel Datei mit 23 Tabellenblättern an verschiedene Empfänger gesendet werden soll.


Gruß
fedjo

Hallo,
hier wird die ganze Mappe an drei Empfänger sofort gesendet.
Dein Text und E-Mail Anschriften ändern.
Gruß
fedjo

Option Explicit
Sub Mappe_versenden_als_EMail()
Dim objOL As Object
Dim objMail As Object
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(0)
Application.ScreenUpdating = False
With objMail
.To = "Email@freenet.de" 'Deine E-Mail Adresse
.cc = "Email2@t-online.de"
.bcc = "Email3@gmx.de"
.Subject = "Aktuelle Umsatzzahlen"
.Body = "Dein Text"
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
Application.ScreenUpdating = True
End Sub