Change the status of an email to 'replied to' using a macro.

I have used the code below which was posted by BlueDevil for auto replying to selecte emails and it works great.  However, I need some additional code which will reply to the email (code below works well) and then will change the status of the email to 'replied to'.  At present the code works, but I have no way of knowing which emails have received a reply and which ones haven't.  Any urgent assistance that can be given I would be grateful.  Here's what I have so far from BlueDevil:

Sub SendCannedResponse()
    Dim olSelection As Outlook.Selection, _
        olResponse As Outlook.MailItem, _
        olReply As Outlook.MailItem, _
        objItem As Object
    Set olSelection = Application.ActiveExplorer.Selection
    For Each objItem In olSelection
        If objItem.Class = olMail Then
            Set olResponse = Application.CreateItem(olMailItem)
            If Left(Application.Version, 2) = "11" Then 'Outlook 2003
                olResponse.Recipients.Add objItem.SenderEmailAddress
            Else 'Some version of Outlook prior to 2003
                Set olReply = objItem.Reply
                olResponse.Recipients.Add olReply.Recipients.Item(1).Address
                Set olReply = Nothing
            End If
            olResponse.Subject = "CV Received"
            olResponse.Body = "We received your CV and are processing it."
            olResponse.Send
            Set olResponse = Nothing
        End If
    Next
    Set objItem = Nothing
    Set olSelection = Nothing
End Sub