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

Question

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

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

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

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

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

Answer 1

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

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

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

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

Answer 2

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

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