E-Mail Betreff auslesen und verändern
28.07.2015 12:23:43
Basti
würde gerne um Eure Hilfe zu dem u.a (Problem) Code bitten.
Die Routine erweitert in Outlook den Betreff einer Email um den gewünschten Inhalt (Funktion bestätigt!!!)
Ich möchte, dass in der Inputbox bereits der aktuell Betreff enthalten ist, sodass ich diesen verändern kann um diesen als finalen Betreff zu speichern.
Bsp ALT: "Test-Mail 1" -> Inputbox ("Test-Mail 1")
Bsp NEU: "TestBetreff-Mail 1"
Danke für Eure Unterstützung
Gruß
Basti
Sub BetreffAnpassen()
On Error Resume Next
Dim olSelection As Outlook.Selection
Dim Mail As Outlook.MailItem
Set olSelection = Application.ActiveExplorer.Selection
olNewSubject = InputBox("Geben Sie den neuen Betreff ein!!", "Betreff ändern")
For Each Mail In olSelection
Mail.Subject = Mail.Subject & " " & olNewSubject
Mail.Save
Next Mail
End Sub