018 Outlook: Betreff mit automatischem Datum

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.

Zurück zur vorherigen Seite

Zurück zur Titelseite