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

Question

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

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

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

Answer 1

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

逻辑：

1. 提取附件并保存说C:\
2. 使用方法CreateItemFromTemplate()打开.msg 文件。更多关于它在这里
3. 将邮件移动到相关文件夹

提取附件的代码：在此处介绍

打开.msg文件的代码：

Sub CreateFromTemplate()
    Dim MyItem As Outlook.MailItem

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

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

移动到不同文件夹的代码：在此介绍。如果你搜索谷歌，你会得到更多的示例代码。

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