Sendmail
04.08.2003 12:49:54
andre06
Sub Blatt_senden()
Sheets("Übersicht").Copy
ActiveWorkbook.SendMail "Test@test.de", "Übersicht"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub
Nun möchte ich aber 1. die Empfänger nachträglich eintragen können und der Name des Arbeitsplattes soll Übersicht +(akt.Datum) und nicht Mappe1 sein kann man das so realisieren?
vielen Dank Andre