Inserting Sent Date into subject line of all selected emails or within a folder

[jke89]

Hey guys,

I am looking for a VBA code that changes the subject line of a group of selected emails, OR all emails in a specific folder - whichever is easiest - so that the date that the email was sent is at the start of the subject.

I have a folder of emails to file each month so I have to insert the sentdate at the start of the subject line, save, and close, and move onto the next.

The format of the date should be YYYY.MM.DD


Thank you for your help!

[gmayor]

Neither is more difficult than then other - code for both below:


Option Explicit

Sub AddDate()
Dim olItem As MailItem
Dim strDate As String
On Error GoTo lbl_Exit
For Each olItem In Application.ActiveExplorer.Selection
strDate = Format(olItem.ReceivedTime, "yyyy.mm.dd - ")
olItem.subject = strDate & olItem.subject
olItem.Save
Next olItem
lbl_Exit:
Set olItem = Nothing
Exit Sub
End Sub

Sub AddDate2()
Dim olItem As MailItem
Dim olFolder As Folder
Dim strDate As String
On Error GoTo lbl_Exit
Set olFolder = Session.PickFolder
For Each olItem In olFolder.Items
strDate = Format(olItem.ReceivedTime, "yyyy.mm.dd - ")
olItem.subject = strDate & olItem.subject
olItem.Save
Next olItem
lbl_Exit:
Set olItem = Nothing
Exit Sub
End Sub

[jke89]

Graham,

Thank you very much - works perfectly!