Перемещение сохраненных писем из общей папки в подпапку Outlook

Question

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

Я попытался выяснить код из Интернета, который может копировать файлы из одной папки в другую (см. Ниже), но не смог изменить его, чтобы сохранить MSG-файлы в подпапке outlook. Это выполнимо вручную, поэтому подумал, что должен быть макрос, который может делать это автоматически.

Любая помощь будет высоко оценена. Заранее спасибо.

 Sub Download_sub()
    Application.EnableCancelKey = xlDisabled
    'downloads the submission mail item into users download folder
    Set fobj = CreateObject("Scripting.FileSystemObject") 'create the file system object

   fobj.CopyFolder sht_Databases.Range("B21").Value & "\MailFolder" & _
    , sht_Databases.Range("B22").Value

    Set fobj = Nothing 'release the variable

    End Sub

Answer 1

Вы можете использовать

1. Application.CreateItemFromTemplate и передайте папку в качестве второго параметра. Обратите внимание, что сообщение будет создано в неотправленном состоянии, и свойства отправителя не будут скопированы.
2. Namespace.OpenSharedItem, чтобы открыть файл MSG, а затем скопировать его в указанную папку, используя MailItem.Move().