Yes - create the case statements for each address you want to file, and use instead of the rule(s).
If you want to variously address sub folders and sub folders with further sub folders, the approach needs to be modified slightly to take account of the paths e.g. as follows. If the folders run deeper than two levels concatenate the folders as shown.
Option Explicit
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim olCopy As MailItem
Dim olFolder As Folder
If TypeName(Item) = "MailItem" Then
Select Case Item.To
Case Is = "someone@somewhere.com"
Set olFolder = Session.GetDefaultFolder(olFolderSentMail).folders("FolderName1")
'add cases and appropriate folder names for each recipient email address to be processed
Case Is = "someoneelse@somewhere.com"
Set olFolder = Session.GetDefaultFolder(olFolderSentMail).folders("FolderName1").folders("FolderName2")
Case Is = "yetanothersomeone@somewhere.com"
Set olFolder = Session.GetDefaultFolder(olFolderSentMail).folders("FolderName1").folders("FolderName2").folders("FolderName3")
'add cases and appropriate folder and sub folder names for each recipient email address to be processed
Case Else: Set olFolder = Nothing
End Select
If Not olFolder Is Nothing Then
Set olCopy = Item.Copy
olCopy.UnRead = False
olCopy.Move olFolder
End If
End If
lbl_Exit:
Set olCopy = Nothing
Exit Sub
End Sub