Макрос - перемещение указанного пользователем электронного письма в папку

Question

Ранее я создавал небольшие сценарии, но никогда ранее не создавал Outlook VBA. Я надеюсь, что кто-то может направить меня в правильном направлении или предоставить пару строк кода, чтобы начать работу.

Мы получаем уведомление по электронной почте для билетов в общем почтовом ящике. Тема для писем начинается с запроса № XXXXXX. Я хочу создать макрос, в котором при запуске макроса будет запрашиваться номер запроса.

Как только он найдет электронную почту, он автоматически переместит электронную почту в папку пользователя в общем почтовом ящике. Обратите внимание, что имя папки, в которую он перемещается, является именем пользователя.

Надеюсь, я объяснил это ясно. Заранее спасибо.

Answer 1

Вот как вы можете исследовать различные объекты в 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

Поскольку вы знакомы с созданием сценариев, проверьте методы и свойства объекта MailItem, чтобы выяснить, что вы можете с ним делать, вы можете копировать, перемещать, сохранять, сохранять как и т.д. В зависимости от того, что вам нужно.