Estoy tratando de implementar una función de búsqueda y movimiento en MS Outlook. La búsqueda está bien, funciona a la perfección. Pero, solo puedo encontrar la función Mover para mover el mensaje a una carpeta de Outlook.

Uso la función Mover siempre mensajes en esta conversación manualmente. Ahora, me gustaría usarlo desde macro. ¿Hay alguna forma de usar esta función desde VBA?

Aquí está la implementación actual, pero utiliza la función simple Move:

Private Sub btn_Click()
    Dim currentMail As Object
    Dim F As Outlook.MAPIFolder
    Dim Msg$
    Set currentMail = Application.ActiveWindow
    If TypeOf currentMail Is Outlook.Inspector Then
      Set currentMail = obj.CurrentItem
    Else
      Set currentMail = obj.Selection(1)
    End If

    currentMail.Move Folder
End Sub