ich versende mit folgendem Makro ein Tabellenblatt. Funktioniert ohne Probleme.
Wie kann ich aber in diese Mail noch einen Begleittext einfügen?
Sub SendAberg()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Sheets("Aberg").Select
Sheets("Aberg").Activate
ActiveWorkbook.SendMail Recipients:="Sus.Flot@gresse.de", _
Subject:="Werbemittel Aberg" & " " & Range("E1").Value
ActiveWorkbook.Close savechanges:=False
Application.Calculation = xlCalculationAutomatic
Sheets("NAVI").Select
End Sub
Vielen Dank für jede Hilfe
Grüße
Georg