Как создать сценарий VBA, который принимает входящее письмо, изменяет его тело и пересылает его?

Question

Мне удалось сделать переднюю часть.

Sub ScriptTest(item As Outlook.MailItem)

    Dim NewMail As MailItem
    Dim obApp As Object
    Set obApp = Outlook.Application
    Set NewMail = obApp.CreateItem(olMailItem)


     With NewMail
         .Subject = ""
         .To = "
         .Body = "REF " & vbCrLf & vbCrLf & "DOM" & vbCrLf & vbCrLf 

         .Importance = olImportanceHigh
         .Display
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
    NewMail.Send
End Sub

Я хотел бы взять входящее письмо и вставить определенную строку после строки, которую я вставил в скрипт.

Затем я установил правило для настройки сценария, чтобы применить сценарий только к определенным входящим письмам.

Любая помощь была бы прекрасна для меня.