将当前电子邮件作为附件附加到较新的 Outlook 中的当前电子邮件回复

Question

我有这个代码：

Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strSubject As String

Select Case True
Case (InStr(Item.Subject, "PIR") > 0)
    If InStr(Item.Subject, "RE") > 0 Then
        strSubject = Replace(Item.Subject, "RE:", "", vbTextCompare)
    Else
    End If

    If InStr(Item.Subject, "FW") > 0 Then
        strSubject = Replace(Item.Subject, "FW:", "", vbTextCompare)
    Else
    End If

    If strSubject = "" Then
    Else
        Set objRecip = Item.Recipients.Add("email.address@domain.com")
        objRecip.Type = olBCC
        objRecip.Resolve
        Item.Subject = Trim(strSubject)
        Item.Save
        Item.Attachments.Add Item
        Item.Save
    End If
Case (InStr(Item.Subject, "PIQ") > 0)
    If InStr(Item.Subject, "RE") > 0 Then
        strSubject = Replace(Item.Subject, "RE:", "", vbTextCompare)
    Else
    End If

    If InStr(Item.Subject, "FW") > 0 Then
        strSubject = Replace(Item.Subject, "FW:", "", vbTextCompare)
    Else
    End If

    If strSubject = "" Then
    Else
        Set objRecip = Item.Recipients.Add("email.address@domain.com")
        objRecip.Type = olBCC
        objRecip.Resolve
        Item.Subject = Trim(strSubject)
        Item.Save
        Item.Attachments.Add Item
        Item.Save
    End If
'#### Enable the below to capture more doc types ####
'    Case (InStr(Item.Subject, "ABC") > 0)
'        If InStr(Item.Subject, "RE") > 0 Then
'            strSubject = Replace(Item.Subject, "RE:", "", vbTextCompare)
'        Else
'        End If
'
'        If InStr(Item.Subject, "FW") > 0 Then
'            strSubject = Replace(Item.Subject, "FW:", "", vbTextCompare)
'        Else
'        End If
'
'        If strSubject = "" Then
'        Else
'            Set objRecip = Item.Recipients.Add("email.address@domain.com")
'            objRecip.Type = olBCC
'            objRecip.Resolve
'            Item.Subject = Trim(strSubject)
'            Item.Save
'        End If
End Select

End Sub

这是在 ThisOutlookSession 中，并检查特定主题的所有已发送电子邮件。

此代码适用于我的 Outlook 2010，但在其他 Outlook 上，它在“Item.Attachments.Add Item”处出错，显示“无法将消息附加到自身”。

在较新的版本中有没有办法解决这个问题？

---

在 Outlook 2010 上，用户可以点击回复（或转发）来回复向他们发送电子邮件的人。

需要附加副本，以便通过代码添加的电子邮件地址（密件抄送“email.address@domain.com”）获取副本。 这个电子邮件地址是一个系统电子邮件地址，它可以去除附件并将它们保存到我们的工作流程软件中（在主题行中）。 这就是为什么我们需要发送电子邮件的附件，所以如果用户说“在这个工作上做 xyz”，那么该电子邮件将保存到我们的工作流程系统中。

Answer 1

为什么不创建一条新消息并将当前消息附加到该新消息中？

您可以尝试使用Redemption （它不会试图阻止您用脚射击），但您很可能最终会在作为嵌入式附件附加的消息上收到一个幽灵空消息附件，因为 Redemption 会复制创建后的嵌入式附件。