Responding to an email with the subject line "test", with this code...
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If TypeName(Item) = "MailItem" Then
Debug.Print Item.Subject
Debug.Print Item.Parent
End If
End Sub
...returns this.
Inbox
RE: test
I'm looking to get to "test", which is the email being responded to so it can be automatically .Move(d) to an archive folder.