Wenn ein bestimmter Betreff immer wieder vorkommt (hier als Beispiel: Mail wie immer vom), sollte er mit dem Absendedatum versehen werden. Dazu in Outlook mit ALT+F11 in die VBA-Entwicklungsumgebung wechseln, dort auf das Projekt Microsoft Outlook Objekte doppelklicken und danach auf DieseOutlookSitzung. Nun die Liste Objekt auf Application und die Liste Prozedur auf ItemSend stellen und folgendes Makro einfügen:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMail As MailItem, strSubj As String
Dim I&, tmp As Variant, blnHasDate As Boolean
On Error Resume Next
If Item.Class = olMail Then
Set objMail = Item
With objMail
If InStr(LCase$(.Subject), "Mail wie immer vom") <> 0 Then hier den Betreff anpassen!
tmp = Split(.Subject, " ")
For I = 0 To UBound(tmp)
While Right(tmp(I), 1) = "."
tmp(I) = Left(tmp(I), Len(tmp(I)) - 1)
Wend
If IsDate(tmp(I)) Then
blnHasDate = True
Exit For
End If
Next I
If Not blnHasDate Then
For I = 0 To UBound(tmp)
strSubj = strSubj & tmp(I) & " "
Next I
.Subject = strSubj & "vom " & Format(Now, "Short Date") & "..."
.Save
End If
End If
End With
End If
End Sub
Das Makro abspeichern und ab sofort wird hinter dem vorgegebenen Betreff das aktuelle Datum eingefügt.