excel tabellenblatt mit outlook versenden

Question

ich habe ein VBA Scrip zum versenden einzelner Tabellenblätter:

Sub Blatt_senden()
Sheets("NAME").Copy
ActiveWorkbook.SendMail "PERSON@PROVIDER", "Aktuelle Umsatzzahlen"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub

Wie kann ich nun noch einen eMail-Text einfügen ?
Ich abrbeite mit Excel 2000
Danke und LG

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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