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

【问题标题】：Moving saved e-mails from a shared folder to outlook sub-folder将保存的电子邮件从共享文件夹移动到 Outlook 子文件夹
【发布时间】：2018-10-16 05:31:44
【问题描述】：

在我们公司，我们遵循一个流程，在该流程中，一个团队将电子邮件保存在一个共享文件夹中，另一个团队的人应该从该文件夹中挑选并开始处理。作为一个改进的想法，我一直在寻找一个宏，它在触发时可以循环遍历该文件夹中所有保存的电子邮件，并可以将它们保存或带入该团队的处理器收件箱的 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

【问题讨论】：

那么您是在尝试处理文件系统文件夹中的 MSG 文件吗？还是 Outlook 文件夹中的邮件？
将 MSG 文件保存在文件系统文件夹中，我想使用 VBA 宏将它们移动到 Outlook 文件夹

标签： outlook save directory subdirectory

【解决方案1】：

你可以使用

Application.CreateItemFromTemplate 并将文件夹作为第二个参数传递。请注意，邮件将在未发送状态下创建，并且不会复制任何发件人属性。
Namespace.OpenSharedItem 打开 MSG 文件，然后使用 MailItem.Move() 将其复制到给定文件夹。

【讨论】：