将已保存的电子邮件从共享文件夹移动到Outlook子文件夹

Question

在我们公司，我们遵循一个流程，在该流程中，团队将电子邮件保存在共享文件夹中，而另一个团队的人员应该从该文件夹中选择并开始处理。作为一个改进的想法，我正在寻找一个宏，在触发时可以循环遍历该文件夹中所有已保存的电子邮件，并可以保存或将它们保存在该团队的处理器收件箱的Outlook子文件夹中。 / p>

我已经尝试并想出了一个来自互联网的代码，它可以将文件从一个文件夹复制到另一个文件夹（请参见下文）但无法修改它以将.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()将其复制到指定的文件夹。