Outlook VBA - Perform action on selected items

[McSpaff]

Hi all,

I'm still working my way through Macros and although Excel brought me here originally, I'm branching out in to other MS programs.

My current project is a Macro that edits the subject line of selected emails. The background is that a number of users all work out of a shared mailbox, and when an email is actioned, the user is required to add their initials to the end of the subject before filing it in the relevant mailbox.

I Googled the majority of the below and I'm finding that although it correctly edits the email title by appending " - JC" to the end of the subject, it only does so for the first email that is selected.

When I step through the Macro, I can see that it loops the correct number of times based on the number of emails highlighted but I cannot understand why it only updates the first email in the selection.

Public Sub InitialEmail()

    Dim currentExplorer As Explorer
    Dim Selection As Selection
     
    Dim obj As MailItem
 
    Set currentExplorer = Application.ActiveExplorer
    Set Selection = currentExplorer.Selection
 
 
    For Each obj In Selection
  
     With obj
  
           .Subject = obj.Subject & " - JC"
      
     End With
 
    Next
 
End Sub

Any help would be much appreciated.

Thanks in advance.

 

[starl]

I tested it (2010) and the emails had to be open. Just selecting from the list didn't affect them.

 

[McSpaff]

In that case, it's there any possibility of modifying the code so that it will make the change on selected emails without the need to have them open?

 

[starl]

Add .save after you .subject line

 

[McSpaff]

Thanks for the help Starl, I'll give it a try when I'm back in work tomorrow.

 

[McSpaff]

Starl, that worked a treat. Thanks again for your help.