ich möchte aus einer akiven Arbeitsmappe, ein ganz bestimmtes Tabellenblatt direkt per eMail versenden können. Wie geht das?
Danke im voraus
Gruss Josef
Sub Blatt_senden()
'Die Routine kopiert Tabelle in eine neue Arbeitsmappe,
'versendet diese und schließt sie anschließend ohne Speicherung'
Sheets("Wareneingang").Copy
On Error Resume Next
ActiveWorkbook.SendMail "heinz.muster@ggggg.de, "FFFFFFFFFFFFFFf"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
If Err.Number > 0 Then MsgBox "Mail wurde nicht gesendet!!", , " Wareneingang"
On Error GoTo 0
End Sub