Including the date in the subject and saving as msg in specific folder

[juliocba]

Is it possible to write a macro to copy the date I received the message, paste this date into the subject and save the message in a specific directory as .msg (no unicode)?

[skatonni]

Try this untested code.

Sub SaveAsSubjectRecTimeMsg()

    Dim selectedEmail As MailItem
    Dim emailsub As String

    Set selectedEmail = ActiveExplorer.Selection.Item(1)

    emailsub = GetValidName(selectedEmail.subject & selectedEmail.ReceivedTime)

    With selectedEmail
        .SaveAs "C:\direcotry\folder\" & emailsub & ".msg", olSaveAsType.olMSG
    End With

End Sub

Function GetValidName(sSub As String) As String

    Dim sTemp As String

    sTemp = sSub

    sTemp = Replace(sTemp, "\", "")
    sTemp = Replace(sTemp, "/", "")
    sTemp = Replace(sTemp, ":", "")
    sTemp = Replace(sTemp, "*", "")
    sTemp = Replace(sTemp, """", "")
    sTemp = Replace(sTemp, "<", "")
    sTemp = Replace(sTemp, ">", "")
    sTemp = Replace(sTemp, "|", "")

    GetValidName = sTemp
End Function

More info here http://msdn.microsoft.com/en-us/libr...ice.15%29.aspx

[juliocba]

Thanks! It works well.

[juliocba]

Thanks! It works well.

I had some problems because the "?" was missing in the function. I included it (sTemp = Replace(sTemp, "?", "") and it's ok now.