Este es un ejemplo de como mover los mensajes seleccionados a un personal folder (pst) en Outlook 2016 usando VBA. Sub MoveInbox() MoveItems ("Inbox") End Sub Sub MoveConversations() MoveItems ("Conversations") End Sub Sub MoveSent() MoveItems ("Sent") End Sub Private Sub MoveItems(folder As String) Dim olApp As New Outlook.Application Dim olExp As Outlook.Explorer Dim olSel As Outlook.Selection Dim myInbox As Outlook.folder Dim myDestFolder As Outlook.folder Set myDestFolder = Session.Folders("2018").Folders(folder) Set olExp = olApp.ActiveExplorer Set olSel = olExp.Selection For intItem = 1 To olSel.Count olSel.Item(intItem).Move myDestFolder Next intItem End Sub