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

可以在Project Explorer中的VBA IDE（Alt + F11）中访问此模块：Project > Microsoft Outlook Objects > ThisOutlookSession

Outlook脚本：没有附件的转发电子邮件

1 个答案: