首页 文章

自动将附加邮件移动到Outlook中的收件箱

提问于
浏览 次
1

我经常收到转发的电子邮件，这些邮件是Outlook格式的.msg文件 . 这些电子邮件作为附件从另一个Exchange服务器转发 . 如果我将附加的邮件拖到我的收件箱中，它们就会像其他任何电子邮件一样显示 . 我想找到一种自动方式将这些附加的电子邮件提取到我的收件箱并删除包含.msg文件的原始邮件 .

我确信这可以通过结合Outlook VBA的规则来完成，但我缺乏从头开始编写此代码的技能 .

任何指针或示例代码让我开始？

vba email outlook outlook-vba

1 回答

  • 3

    我就是这样做的 . 但是，我会给你一些代码，你必须将它们合并在一起 .

    Logic ：

    • 解压缩附件并将其保存为 C:\

    • 使用方法 CreateItemFromTemplate() 打开.msg文件 . 更多关于它HERE

    • 将消息移动到相关文件夹

    Code for Extracting attachments ：涵盖HERE

    Code for opening the .msg file ：

    Sub CreateFromTemplate()
    Dim MyItem As Outlook.MailItem

    Set MyItem = Application.CreateItemFromTemplate("C:\Blah Blah.msg")
    MyItem.Display
End Sub

    现在你有 .msg 的句柄，即 MyItem ，只需将其移动到相关文件夹，然后删除原始电子邮件

    Code for moving to a different folder ：涵盖HERE . 如果您搜索谷歌，您将获得更多的示例代码 .

    希望这能让你走上正确的道路 .

    回复于

相关问题