Outlook 脚本：转发不带附件的电子邮件

Question

我正在寻找将所有传入电子邮件转发到通讯组的脚本，但没有附件。我需要将附件保留在原始电子邮件中，这样它就不能被删除。我正在使用 Microsoft Outlook 2010。

所以只是为了清楚起见：一封电子邮件附带了一些东西。我想将这封不带附件的电子邮件转发到其他地址，同时保持原件不变。

在此先感谢任何可以提供帮助的人。

编辑：这个过程需要在每封进入该地址的电子邮件上自动发生。

Answer 1

将以下代码放入您的ThisOutlookSession 模块：

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Dim varEntryID As Variant

    For Each varEntryID In Split(EntryIDCollection, ",")
        Dim objOriginalItem As MailItem
        Set objOriginalItem = Application.GetNamespace("MAPI").GetItemFromID(varEntryID)
        Dim objForwardedItem As MailItem
        Set objForwardedItem = objOriginalItem.Forward

        Do Until objForwardedItem.Attachments.Count = 0
            objForwardedItem.Attachments.Remove (1)
        Loop

        objForwardedItem.To = "toemailaddress@domain.com"
        objForwardedItem.Send
    Next
End Sub

可以在项目资源管理器的 VBA IDE (Alt + F11) 中访问此模块：Project > Microsoft Outlook Objects > ThisOutlookSession