使用VBA从Outlook文件夹中转发电子邮件

Question

这是场景：我的Outlook收件箱有一个子文件箱，称为通知。如果此文件夹中有任何自动通知，我每天都会检查并转发给同事。我想运行一个vba，以便它进入此文件夹，然后检查内部，如果有一封电子邮件，则可以向前进行，否则停止。

我会在这种情况下寻求您的帮助，因为我在Outlook上是Visual Basic的新手。非常感谢。

托尼

Answer 1

当文件夹收到电子邮件然后转发此电子邮件时，您可以创建一个宏规则。

请参阅以下代码：

Sub ForwardEmail(Item As Outlook.MailItem)
// Determine if it’s an email
If TypeName(Item) = "MailItem" Then
    With Item.Forward
        .Subject = ("ITS - ") & Item.Subject
        .Recipients.Add "[e-mail]"
        ' You need to overwrite the Body or HTMLBody to get rid of the auto signature
        .HTMLBody = Item.HTMLBody ' <-- Or use .Body for Plain Text
        '.Display ' <-- For Debug
        .Send ' <-- Put break here to Debug
End With
End If
End Sub

有关更多信息，请参阅以下链接：

otlook vba和规则转发电子邮件和更改主题

vba复制根据主题中的关键字发送到文件夹