Mover mensajes seleccionados a un personal folder en Oulook 2016

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