Прикрепить текущее электронное письмо как вложение к текущему электронному ответу в новых прогнозах

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пользователь нажимает кнопку «Ответить» (или переслать), чтобы ответить тем, кто отправил им электронное письмо.

Необходимо приложить копию, чтобы добавленный адрес электронной почты (BCC "email.address@domain.com") черезкод, получает копию.Этот адрес электронной почты является системным адресом электронной почты, который удаляет вложения и сохраняет их в нашем программном обеспечении рабочего процесса под заданием (которое находится в строке темы).Вот почему нам нужно отправить вложение в электронное письмо, поэтому, если пользователь говорит «Выполнить xyz в этой работе», это электронное сообщение сохраняется в нашей системе документооборота.

Answer 1

Почему бы не создать новое сообщение и не присоединить текущее сообщение к этому новому сообщению?

Вы можете попытаться использовать Искупление для этого (это не помешает вам выстрелить себе в ногу), но, скорее всего, в итоге вы получите пустое вложение в сообщении к сообщению прикреплено как встроенное вложение, так как функция Redemption скопирует вложенное вложение сразу после его создания.