Find ich eigentlich ne ziemlich gute Idee.
Gut genug für mich, mal ein paar Minütchen zu frickeln....
Dieses Makro hier läuft in Outlook - vorausgesetzt, man "bittet" Outlook, die Ausführung zuzulassen.. :P
(Makrosicherheit auf mindestens "mittel" heruntersetzen)
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
Ich habe einfach eine bestehende Mail aufgemacht, dann auf "Extras->Anpassen" und eine Schaltfläche für dieses Makro auf die Toolbar ziehen.
Jetzt habe ich einen Button "Sauber Antworten" neben den bekannten Antwortbuttons, aber die Antwortmail enthält nur noch den Originalbetreff mit genau 1 "Re: " davor.
Habs mit einer Mail getestet, die 5 Re: und AW:s enthielt...
;-)
Klitzekleiner Nachteil: Man muss die Mail tatsächlich voll geöffnet haben. Nur markiert und in Lesevorschau funzt das nicht.