VBA - Moving a mail from inbox to a specific folder

Sameer_Kuppanath_Sultan 

Maybe this approach could help you resolve your issue.

Please adjust in your code

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If TypeOf Item Is Outlook.MailItem Then
SaveSentMail Item
End If
End Sub

Private Sub SaveSentMail(Item As Outlook.MailItem)
Dim Inbox As Outlook.MAPIFolder
Dim Subfolder As Outlook.MAPIFolder

If Item = "Nikolino" Then
Set Inbox = Application.Session.GetDefaultFolder(5)
Set Subfolder = Inbox.folders("0200 Nikolino").folders("General")
Set Item.SaveSentMessageFolder = Subfolder
End If

Sorry that I haven't been able to offer you a quick, acceptable solution until now.

Will keep you updated

Thank you for your patience and time.

Nikolino

I know I don't know anything (Socrates)