Шаблон структуры папок Outlook

Наличие большого количества разных клиентов и разных областей работы позволяет упорядочить ваши почтовые папки. Каждый раз, когда я получаю новый проект / клиента, я хочу добавить определенную структуру папок в мой подкаталог «Клиент» / «Проект».

Это может выглядеть так:

Customer_name/
    Bugs
    Documents
    Important
    Support/
        Done

И как сегодня, я должен вручную добавить их вручную, что довольно сложно, когда у вас много всего происходит, и каждый подкаталог в каталоге customer_name должен иметь «отображать все элементы», так как мне важно видеть все Элементы в Bugs / Support / Важно.

Облегчает мою жизнь

Итак, можно ли как-нибудь автоматизировать процесс? Макро? Шаблоны папок?

Какие у меня варианты?

редактировать

У меня сейчас есть что-то вроде этого:

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")

Но это не устанавливает свойства для каждой папки.

Таким образом, последующий вопрос будет, должен ли я решить это с помощью программирования?

Просто создайте пустую версию желаемой структуры папок. Затем, когда вы получите новый проект, щелкните правой кнопкой мыши, перетащите этот «шаблон» туда, где вы хотите, и выберите «копировать», когда отпустите.

Это создаст пустую копию папки и всех ее подпапок.

Если эта копия находится в той же папке, что и оригинальная пустая, верхний уровень будет переименован с добавленным номером, но это, вероятно, не будет иметь значения, так как вы все равно будете переименовывать его для своего клиента / проекта.

Я знаю, что это не решение «щелкнуть кнопкой», а простое перетаскивание каждый раз, когда работа выполнена.

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")

Этого будет достаточно.