时间戳

首页 > 解决方案 > 将保存的电子邮件从共享文件夹移动到 Outlook 子文件夹

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

问题描述

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

标签： outlooksavedirectorysubdirectory

解决方案

您可以使用

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

推荐阅读