kann mir jemand nachfolgenden Code (hat eigentlich mit Excel nichts zu tun)so abändern, dass der einzufügende Text immer an den Anfang einer bestehenden Betreffzeile steht. Er soll den bestehenden Text in der Betreffzeile stehen lassen und nicht überschreiben oder löschen.
Danke für eure Hilfe
Gruss Norbert
Sub lBetreff_ändern()
On Error Resume Next
Dim olSelection As Outlook.Selection
Dim olitem As MailItem
Set olSelection = Application.ActiveExplorer.Selection
olNewSubject = InputBox("Geben Sie den Text ein!!", "dem Betreff hinzu fügen")
For Each olitem In olSelection
olitem.Subject = olNewSubject
olitem.Save
Next olitem
End Sub