This VBScript example uses the Reply event and sets the Sent Items folder for the reply item to the folder in which the original item resides.
Function Item_Reply(ByVal myResponse)
Set myResponse.SaveSentMessageFolder = Item.Parent
End Function