Sub SauberAntworten()
Dim mi As MailItem, sj As String, re As MailItem
Dim checker As String
If ActiveInspector.CurrentItem.Class = olMail Then
Set mi = ActiveInspector.CurrentItem
sj = mi.Subject
Set re = mi.ReplyAll
'erste drei Zeichen des Original Mailsubjects auslesen
checker = LCase(Left(sj, 3))
Do While (checker = "re:" Or checker = "aw:")
sj = LTrim(Mid(sj, 4)) '(erste drei Zeichen + Leerstelle löschen, solange bis kein "Re:" mehr drin ist.)
checker = LCase(Left(sj, 3))
Loop
'Variable sj enthält nun nur noch den Originalbetreff ohne RE:
re.Subject = "Re: " & sj
re.Display
'End With
End If
End Sub