E-mail mit file

Sub mail_erstellen()

Workbooks.Add
Application.DisplayAlerts = False
Sheets(Array("Tabelle2", "Tabelle3")).Select: ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True


Range("B2").Value = "Die Abzugskraft überschreitet den maximal"
Range("B3").Value = "zulässigen Wert. Bitte überprüfen."
If IsNull(Application.MailSession) Then
Application.MailLogon "W7-Daemon", "w7vba", False
End If
ActiveWorkbook.SendMail Recipients:="testadresse@test.de", Subject:="test betreff"
If Not IsNull(Application.MailSession) Then Application.MailLogoff


End Sub