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

【问题标题】：forward emails from an outlook folder using vba使用 vba 从 Outlook 文件夹转发电子邮件
【发布时间】：2019-05-20 14:38:57
【问题描述】：

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

我会在这种情况下寻求您的帮助，因为我对 Outlook 上的 Visual Basic 还是很陌生。非常感谢。

托尼

【问题讨论】：

标签： vba outlook

【解决方案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

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

【讨论】：