Mailversand mit Datumsangabe
18.06.2003 10:31:45
Manfed
Mehrere Mitarbeiter müssen täglich eine Tabelle mit dem Namen "Meldung" an eine bestimmte Adresse mailen.
Im Posteingang werden die eingelangten E-Mails als Mappe1.xls , Mappe2.xls usw. abgelegt.
Das eingelanget Tabellenblatt sollte aber Meldung_Datum.xls (Beispiel: Meldung180603.xls) usw.
lauten.
Wer kann mir mein Makro ergänzen?
Vielen Dank im Voraus.
Sub Blatt_senden()
Sheets("Meldung").Copy
ActiveSheet.Name = "Meldung"
ActiveWorkbook.SendMail "mustermann.peter.aon.at", "Meldung"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub
Anzeige