Need Help with Simple Code Correction

[Coco]

I'm very new to VB (like, several hours old!), and I have created a small code to run on an email that will add the email's original date stamp to the beginning of the subject line. The problem I am having (and I'm sure it is a simple code correction) is that it only works on one email at a time (the one selected). I need to be able to select a bunch of emails and have it run on all of them. Here is my code:

Sub Test()
Dim MItem As MailItem
On Error GoTo ExitPoint
For Each MItem In ActiveExplorer.Selection
MItem.Subject = MItem.CreationTime & " " & MItem.Subject
Next

ExitPoint:

End Sub

Anyone who can help I would be much appreciative!

Thanks

 

[Diane Poremsky]

Try something like this - i didn't test it and if it doesn't quite work, check the macro here - it 'does something' to selected items.

Sub Test()
Dim currentExplorer As Explorer
Dim Selection As Selection
Dim obj As Object
Dim MItem As MailItem
Set currentExplorer = Application.ActiveExplorer
Set Selection = currentExplorer.Selection
On Error GoTo ExitPoint
For Each obj In Selection
Set MItem = obj
MItem.Subject = MItem.CreationTime & " " & MItem.Subject

mitem.save
Next
ExitPoint:
End Sub

 

[Coco]

Thank you Diane,

I see the problem is that it is looking at currently viewed messages (as in, messages in the message pane). And only one message can be in the view pane at a time. If I simply highlight a message and am not viewing it in the pane, the code will not work at all. Since only one message could be possibly viewed at a time in the open pane, it still only works on one message at a time. I think I need a code that would work on all messages in a folder or something?

 

[Diane Poremsky]

My code should work on the selection - it doesn't matter if it's being 'viewed'. just only need to select it. I'm working on an ediscovery project right now and can't double check the code until I'm finished with this though.

 

[Diane Poremsky]

One thing you need to be aware of - 'created date' is generally going to be the date the message was either added to your mailbox or when it was downloaded. It's better to use Sent or Received date.

 

[Diane Poremsky]

This worked here -

Public Sub ChangeSubject()
   Dim currentExplorer As Explorer
   Dim Selection As Selection
   Dim currentItem As Object
   Dim mItem As MailItem
   Dim obj As Object
   Set currentExplorer = Application.ActiveExplorer
   Set Selection = currentExplorer.Selection
   On Error Resume Next
   For Each obj In Selection
           Set mItem = obj
           With mItem
               .Subject = "5: " & .Subject
               .Save
           End With
       Err.Clear
   Next
   Set currentExplorer = Nothing
   Set obj = Nothing
   Set Selection = Nothing
   Set currentItem = Nothing 
 
End Sub

 

[Diane Poremsky]

ah... i see what we missed:

mitem.save before Next. Your code works with the save added too.

 

[Coco]

Thank you Diane!

 

[Coco]

What command line would I use instead of CreationDate to pull either date sent/received?

 

[Coco]

never mind... I actually figured it out!

 

[Coco]

Ok, macro up and running nicely, but I need to adjust. If the macro is inadvertently run a second time on the same email, the sent on date is inserted again, resulting in a subject line that reads: sentOn date + (sentOn date + original subject) .

Can I add some type of If/then statement that will detect if the subject already contains the sentOn date (the macro was already run on it) and skip that email?

Thanks,

Coco

 

[Diane Poremsky]

that's why my sample used "5: " - it fits better after a few tests

Add this

For Each obj In Selection
Set mItem = obj
If Left(mItem.Subject, 6) <> Left(mItem.CreationTime, 6) Then

' more
Else

End If
Next