Email senden aus Excel

[elamigo]

Guten Tag Leute,

folgendes Szenario. Eine Tabelle (Blatt1) mit vielen Datensätzen wird gefiltert und danach, wird die gefilterte Tabelle, per makro ins nächste Tabellenblatt (blatt2) kopiert. Nun soll die Tabelle (Blatt2) per makro direkt an email XXXX gesendet werden (über Outlook). Wichtig hierbei wäre, dass nur Blatt2 per email gesendet wird, nicht alles. 

Folgendes Makro habe ich, es funktioniert auch, allerdings sendet er halt die ganze Datei:

Sub Email_senden()
On Error GoTo ErrHandler

' SET Outlook APPLICATION OBJECT.
Dim objOutlook As Object
Set objOutlook = CreateObject("Outlook.Application")

' CREATE EMAIL OBJECT.
Dim objEmail As Object
Set objEmail = objOutlook.CreateItem(olMailItem)

With objEmail
.to = "XXXXXXXXXXXXXX@email.de"
.Subject = "Das ist eine Testnachricht von einem Excel Makro"
.Body = "TEST!"
' .Display
.Attachments.Add ("TABELLE")
.Send
End With

' CLEAR.
Set objEmail = Nothing: Set objOutlook = Nothing

ErrHandler:
End Sub



Gruß & Danke

[00202]

Hallo, :19:

speichere das Tabellenblatt als separate Datei und versende es dann - siehe - Pfannenfertig - hier: :21:

Ein Tabellenblatt via Outlook versenden...

[elamigo]

Schade das ich nur 1 Danke geben kann, du hast 1000 verdient :)