Hallo zusammen,
ich hätte gerne ein einfaches Makro, dass mir bei neuen Mails und wenn ich auf Mails antworte das aktuelle Datum in den Betreff schreibt. Bei neuen Mails funktioniert das ohne Probleme:
Sub Intern()
ActiveInspector.CurrentItem.Subject = "D_" & Format(Date, "yyyymmdd")
End Sub
Wenn ich nun aber auf eine Mail antworte, wird natürlich der ursprüngliche Betreff verworfen und nur das Datum eingefügt. ich hätte aber gerne, dass wenn bereits etwas im Betreff steht, dieser an das Datum angehängt wird.
Probiert hatte ich es so:
Sub Intern()
ActiveInspector.CurrentItem.Subject = "D_" & Format(Date, "yyyymmdd") & Mail.Subject
End Sub
Hat jemand eine Lösung/Denkanstoß für mich?
Danke schon mal