Macro - Mover el correo electrónico especificado por el usuario a la carpeta

He creado scripts pequeños antes, pero nunca he creado un VBA de Outlook antes. Espero que alguien pueda guiarme en la dirección correcta o proporcionar un par de líneas de código para que empiece.

Recibimos notificaciones por correo electrónico de tickets en un buzón compartido. El asunto de los correos electrónicos comienza con la Solicitud # XXXXXX. Quiero crear una macro donde, cuando ejecute la macro, solicite el número de solicitud.

Una vez que localice el correo electrónico, lo moverá automáticamente a la carpeta del usuario en el buzón compartido. Tenga en cuenta que el nombre de la carpeta a la que se está moviendo es el nombre de usuario del usuario.

Espero que lo explique claramente. Gracias por adelantado.

Así es como puedes explorar los diferentes objetos en Outlook:

Sub exploreItems()
'Namespace is the big picture
Set ns = Outlook.GetNamespace("MAPI")
'Then come the folders:
For Each fold In ns.Folders
    'If you have any subfolder:
    For Each f In fold.Folders
        'Now the mail items:
        For Each it In f.Items
            'once you arrive to the mail item, you can do anything with it
            MsgBox it.Subject
        Next it
    Next f
Next fold
End Sub

Ya que está familiarizado con hacer guiones, verifique Métodos y propiedades del objeto MailItem. para saber qué puede hacer con él, puede copiarlo, moverlo, guardarlo, guardarlo, etc., según lo que necesite.