aktuelle Tabellen Mailen mit aktuellem datum
20.09.2003 15:33:03
AndreasR
ich habe folgendes Makro mit dem ich in Lotes Notes aus einem aktiven Tabellenblatt herraus über eine Schaltfläche das aktuelle Tabellenblatt ohne Verknüpfungen sende.
Sub AktuelleTabelleMailenOhneVerknüpfungen()
Dim zelle As Range
Sheets("Tabelle1").Activate
ActiveWorkbook.ActiveSheet.Copy
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
For Each zelle In Selection
zelle.Value = zelle.Value
Next zelle
ActiveWorkbook.SendMail _
Recipients:="Held-office@t-online.de", _
Subject:="Aktuelle Tabelle mailen"
ActiveWorkbook.Close savechanges:=False
End Sub
mein Problem ist, das ich bei der Codezeile Subject:= auch das aktuelle Datum mit reingeschrieben werden soll.
Das sollte dann in der e_Mail in der Zeile "Betreff" dannfolgendermaßen aussehen
Betreff: Aktuelle Tabelle vom: und hier sollte dann noch das aktuelle Datum stehen
kriegt das eventuell einer von euch hin obwohl heute wieder ein schöner heißer tag ist????
Gruß und noch ein schönes Wochenende und vielen dank für eure Bemühungen
Andreas
Anzeige