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
--
John Whyte

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

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"JohnW" wrote in message
...
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
--
John Whyte