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

Question

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

在这种情况下，我会寻求您的帮助，因为我对Outlook的视觉基础还很陌生。非常感谢。

托尼

Answer 1

您可以在文件夹收到电子邮件后创建macro rule，然后转发此电子邮件。

请参考以下代码：

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 "backup@email.com"
        ' 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 and rule to forward email message and change subject

VBA Copy sent mail to folder based on key words in subject