Email:How do I add the received date to the start of the subject l

[JohnW]

I would like to add the received date to incoming emails by clicking a button
(or key combination) on the open, received email. I want to position it in
front of the subject text. For example:-

Change
Subject: Software Problems

To
Subject: 2009_01_11_14_12 Software Problems.

Thanks,

John

 

[Ken Slovak - [MVP - Outlook]]

The macro called by the button would use code something like this:

Sub myCode()
Dim oMail As Outlook.MailItem

Set oMail = Application.ActiveInspector.CurrentItem
oMail.Subject = CStr(oMail.ReceivedTime) & " " & oMail.Subject
oMail.Save
End Sub