Перенести данные из вложения outlook в тело письма

От определенного адресата приходят сообщения с вложенными отчетами в excel. Необходимо: сформировать новое письмо скопировать содержимое вложенного файла и вставить в тело письма

если тема исходного письма "Рассылка. Создан отчет "report_si_RA0000002387262"", то необходимо Вложение удалить. Заменить тему на "Отчет ЕИ". Задать одну группу адресатов. Сохранить в письмо в черновики.

если тема исходного письма "Рассылка. Создан отчет "report_mi_RA0000002373486"" то необходимо Вложение перенести в новое письмо. Заменить тему на "Отчет МИ". Задать другую группу адресатов. Сохранить в письмо в черновики.

В VBA не силен. Нашел как перенаправить письмо с нужной темой. Не понимаю как обработать вложение

'''

Option Explicit
Public Sub ForwardEmail()
    Dim item, oMail As Outlook.MailItem
    Dim strSubjectSI, strSubjectMI, sendTo As String

    sendTo = "[email protected]"
    strSubjectSI = "Рассылка. Создан отчет " & Chr(34) & "report_si_RA0000002387262" & Chr(34)
    strSubjectMI = "Рассылка. Создан отчет " & Chr(34) & "report_mi_RA0000002373486" & Chr(34)

    On Error GoTo Release

    Set item = ActiveExplorer.Selection.item(1)

    Set oMail = ActiveExplorer.Selection.item(1).Forward

    If item.Subject = strSubjectSI Then
        oMail.Subject = "Отчет ЕИ"
        ' Удаляем вложение
        With oMail.Attachments
            While .count > 0
                  .Remove 1
            Wend
        End With
    Else
        If item.Subject = strSubjectMI Then
            oMail.Subject = "Отчет МИ"
        End If
    End If

    oMail.HTMLBody = ""
    oMail.Recipients.Add sendTo

    oMail.Save

Release:
    Set item = Nothing    
    Set oMail = Nothing

End Sub

'''