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

Question

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

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

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

Answer 1

我将如何做到这一点。但是，我会给你一些你必须合并的代码。

逻辑：

1. 提取附件并将​​其保存为C:\
2. 使用方法CreateItemFromTemplate()打开.msg文件。关于它的更多信息HERE
3. 将邮件移至相关文件夹

提取附件的代码：涵盖HERE

打开.msg文件的代码：

Sub CreateFromTemplate()
    Dim MyItem As Outlook.MailItem

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

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

移至其他文件夹的代码：涵盖HERE。如果您搜索谷歌，您将获得更多的示例代码。

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