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

  • Thread starter Thread starter JohnW
  • Start date Start date
J

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
 
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
 
Back
Top