Text aus Email-Betreff löschen

Wenn eine Email mehrfach hin und her geschickt wird, kommt es vor, dass der Betreff immer länger wird. Häufig erkennt ein Email-Client bei Antworten und Weiterleitungen nicht, dass das Kürzel dafür bereits in einer anderen Sprache vorhanden ist und stellt es in der eigenen Sprache voran. Die Gegenseite tut das dann auch wieder und so weiter.

Das Makro ist so aufgebaut, dass es vom Regelassistenten aufgerufen werden kann. Die Liste der zu entfernenden Begriffe können Sie beliebig erweitern. Die Begriffe müssen in Anführungszeichen stehen und werden per Komma voneinander getrennt.

  So fügen Sie Makros in Outlook ein

Public Sub ClearSubject(Item As Outlook.MailItem)
  Dim arr As Variant, i As Long
  
  'Liste der zu entfernenden Begriffe
  arr = Array("RE:", "FW:")
  
  For i = 0 To UBound(arr)
    Item.Subject = Replace(Item.Subject, arr(i), , "", , vbTextCompare)
  Next
  If Item.Saved = False Then
    Item.Subject = Trim$(Item.Subject)
    Item.Save
  End If
End Sub