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?