Plantilla de estructura de carpetas de Outlook

Tener muchos clientes diferentes y muchas áreas diferentes con las que trabajar hace que sea trivial tener sus carpetas de correo en orden. Cada vez que obtengo un nuevo Proyecto / Cliente, quiero agregar una determinada Estructura de carpetas en mi subdirectorio "Cliente" / "Proyecto".

Podría verse así:

Customer_name/
    Bugs
    Documents
    Important
    Support/
        Done

Y tal como está hoy, tengo que agregarlos manualmente, lo cual es severo cuando tienes muchos eventos y cada subdirectorio bajo el directorio customer_name necesita tener "mostrar todos los elementos" ya que es importante para mí ver todos Artículos en Bugs / Support / Important.

Hace mi vida más fácil.

Entonces, ¿es posible automatizar el proceso de alguna manera? ¿Macro? Plantillas de carpeta?

¿Cuáles son mis opciones?

Editar

Tengo algo como esto configurado en este momento:

Set objOutlook = CreateObject("Outlook.Application")

Set objNameSpace = objOutlook.GetNameSpace("MAPI")
Set objFolder = objNameSpace.PickFolder
If objFolder Is Nothing Then
    WScript.Quit
End If
Set objFolders = objFolder.Folders
customer = InputBox("Enter Customer Name:")
Set objCustomerFolders = objFolders.Add(customer).Folders
objCustomerFolders.Add("Bugs")
objCustomerFolders.Add("Documents")
objCustomerFolders.Add("Important")
Set objSupportFolders = objCustomerFolders.Add("Support").Folders
objSupportFolders.Add("Done")

Pero esto no establece las propiedades en cada carpeta.

Entonces, una pregunta de seguimiento sería: ¿Tengo que resolver esto con la programación?

Simplemente crea una versión vacía de la estructura de carpetas que deseas. Luego, cuando obtenga un nuevo proyecto, haga clic con el botón derecho y arrastre esta "plantilla" a donde desee, y elija "copiar" cuando lo suelte.

Esto creará una copia vacía de la carpeta y todas sus subcarpetas.

Si esta copia está en la misma carpeta que la vacía original, se cambiará el nombre del nivel superior con un número agregado, pero esto probablemente no importará, ya que de todos modos le cambiará el nombre a su cliente / proyecto.

Sé que no es una solución de "hacer clic en un botón", pero es un simple arrastrar y soltar cada vez que se realiza el trabajo.

Set objOutlook = CreateObject("Outlook.Application")

Set objNameSpace = objOutlook.GetNameSpace("MAPI")
Set objFolder = objNameSpace.PickFolder
If objFolder Is Nothing Then
    WScript.Quit
End If
Set objFolders = objFolder.Folders
customer = InputBox("Enter Customer Name:")
Set objCustomerFolders = objFolders.Add(customer).Folders
objCustomerFolders.Add("Bugs")
objCustomerFolders.Add("Documents")
objCustomerFolders.Add("Important")
Set objSupportFolders = objCustomerFolders.Add("Support").Folders
objSupportFolders.Add("Done")

Esto será suficiente.