Add string to beginning of subject for a selected received email and save

[jkhvbid]

I would like to add a string to the subject of a selected email and have it saved.
The code I have right now works to a point. I click on the target email, run the
macro and the subject is changed but I have to open the email and save it
for it to work.


Sub ChangeSubject()
Dim strSubject As String
Dim olMail As MailItem
On Error GoTo ErrHandler
Set olMail = Application.ActiveExplorer.Selection.Item(1)
strSubject = olMail.Subject
olMail.Subject = "(TEST) " & strSubject
Exit Sub
ErrHandler:
Beep
End Sub

[gmayor]

Add the Save command to the macro

Sub ChangeSubject()
Dim strSubject As String
Dim olMail As MailItem

On Error GoTo ErrHandler
Set olMail = Application.ActiveExplorer.Selection.Item(1)
strSubject = olMail.Subject
olMail.Subject = "(TEST) " & strSubject
olMail.Save
Set olMail = Nothing
Exit Sub
ErrHandler:
Beep
End Sub

[jkhvbid]

Add the Save command to the macro

Sub ChangeSubject()
Dim strSubject As String
Dim olMail As MailItem

On Error GoTo ErrHandler
Set olMail = Application.ActiveExplorer.Selection.Item(1)
strSubject = olMail.Subject
olMail.Subject = "(TEST) " & strSubject
olMail.Save
Set olMail = Nothing
Exit Sub
ErrHandler:
Beep
End Sub
PERFECT! Thanks!