Excel VBA : Email mit heutigem Datum im Betreff

  • Ersteller Ersteller McMoneysack91
  • Erstellt am Erstellt am
M

McMoneysack91

Gast
Liebe Freunde,

ich habe in einer Tabelle einen Button generiert, welcher sofort Outlook öffnet, entsprechende Email-Adressen einträgt und einen Betreff einträgt.

In dem Betreff muss jedoch automatisiert das heutige Datum vorweggestellt werden. Im Format z.B.:

220203 Testbetreff

Also Jahr 22 Monat 02 Tag 03.
Aus einem anderen Makro, wo ich eine Tabelle als Datei mit heutigem Datum im Dateinamen speicherte entnahm ich den Befehl

Format(Date, "YYMMDD")

Und diesen Befehl fügte ich einfach in die .Subject Zeile meines Email Makros ein, in der Hoffnung, dass er das aktuelle Datum in den Betreff einträgt:

.Subject = "Format(Date, "YYMMDD")Test"

Allerdings erhalte ich immer Fehlermeldungen: "Fehler beim Kompilieren: Syntaxfehler"

Bin ich da schon in etwa auf der richtigen Spur, oder völlig auf dem Holzweg?



==========

Zusatz:

Abgesehen vom Betreff hätte ich ganz gerne auch in der Überschrift im Body des Emailtextes das aktuelle Datum angezeigt. Der Body ist bereits als .htmlBody ausgezeichnet.
 
Ich bin in vba jetzt nicht mehr 100% fit, aber musst du den String (Betreff) nicht irgendwie zusammenfügen? Ich meine da müsste ein & dazwischen -> .Subject = Format(Date, "YYMMDD") & "Test"
 
  • Gefällt mir
Reaktionen: ella_one
Es gab mal das Jahr 2000 Problem! Seitdem wird das Jahr vierstellig geschrieben und kann z.B. nicht mit Monat oder Tag verwechselt werden. Zudem sind Berechnungen mit einem vierstelligen Jahr einfacher.
Eine kleine Umstellung der Formel genügt!
 
Tja, @Nico25394 ein Schuss ein Treffer. Es lag eiskalt an diesem &... :D Herzlichen Dank dafür!

Wenn ich es jetzt noch schaffe, das Datum im Textfeld zu automatisieren, ist es vollbracht!

@ella_one das war tatsächlich nicht der Ausschlag. Sowohl YYYYMMDD als auch YYMMDD klappt fantastisch. Ich Honk hatte bloß vergessen die jeweiligen Parameter durch & zu trennen :D
 
  • Gefällt mir
Reaktionen: Nico25394
Zurück
Oben