Tabellenblatt mailen
17.06.2003 09:23:54
Manfed
Haben ein Datei mit 3 Tabellen (Stammdaten,Meldung,Personal)
Die Tabelle "Meldung" soll an eine E-Mailadresse gesendet werden.
Makro funktioniert. Jede verschickte Tabelle langt mit dem Namen
"Mappe1, Mappe2 im Postfach ein.
Das verschickte Tabellenblatt sollte aber mit den Namen "Meldung" und als Zusatz mit den Tagesdatum und event. der Uhrzeit einlagen.
Welcher Befehl fehlt mir noch ?
Beispiel: Meldung 170503_10:30
Welcher Befehl fehlt mir noch ?
MAKRO:
Sub senden()
On Error GoTo ErrorHandler
Sheets("Meldung").Copy
ActiveWorkbook.SendMail Recipients:=Array("mustermann.peter@xxx.at")
If Application.Workbooks.Count > 1 Then
ActiveWorkbook.Close SaveChanges:=False
Else
Application.DisplayAlerts = False
Application.Quit
End If
ErrorHandler:
Resume Next
End Sub