Как заполнить определенные слова из Excel на электронную почту в Outlook?

Question

У меня проблема с заполнением текста из файла Excel в шаблон электронной почты, чтобы заменить слова из шаблона словами из файла Excel, который содержит данные, такие как имя, идентификатор, адрес электронной почты и т. Д. при запуске программа работает с использованием шаблона, но затем я получаю ошибку времени выполнения 287, когда дело доходит до замены слов данными из файла, которые я хочу.

Я пыталсядобавьте строку .body replace, чтобы заменить тело этого конкретного имени из шаблона данными из файла excel, но все равно не работает.

Set xlWB = Excel.ActiveWorkbook
Set xlSheet = xlWB.Sheets("Data")

rCount = 5

Do Until Trim(xlSheet.Range("A" & rCount)) = ""

    strMgrFirstname = xlSheet.Range("F" & rCount)
    SendTo = xlSheet.Range("H" & rCount)
    strSubject = xlSheet.Range("K" & rCount)
    LoginID = xlSheet.Range("A" & rCount)
    strFirstname = xlSheet.Range("B" & rCount)
    strLastname = xlSheet.Range("C" & rCount)
    strEmptype = xlSheet.Range("D" & rCount)
    ActualStartdate = xlSheet.Range("J" & rCount)
    ComEmail = xlSheet.Range("L" & rCount)

    Set otlApp = New Outlook.Application
    Set otlNewMail = Outlook.Application.CreateItemFromTemplate("C:\EmailTemplate\Email Step 1- Group CIO Induction Training for Line Managers - For Action.oft")
    'otlNewMail.Display

    With otlNewMail
        .SentOnBehalfOfName = ComEmail
        .To = SendTo
        .Subject = strSubject

        .Body = Replace(.Body, "[MANAGER_FIRST_NAME]", strMgrFirstname)
        .Body = Replace(.Body, "[LOGIN]", LoginID)
        .Body = Replace(.Body, "[FIRST_NAME]", strFirstname)
        .Body = Replace(.Body, "[LAST_NAME]", strLastname)
        .Body = Replace(.Body, "[EMP_TYPE]", strEmptype)
        .Body = Replace(.Body, "[ACTUAL_START_DATE]", ActualStartdate)

        .Save
        '.Close
    End With

При нажатии клавиши F8 в строке появляется сообщение об ошибке.Body = Заменить:

Ошибка времени выполнения '287'

Любые решения и помощь будут оценены. Спасибо.