Я понял способ, но он может быть слишком неаккуратным для большинства. У меня есть простой Db, и я хочу, чтобы он мог генерировать электронные письма для меня, поэтому вот нижнее и грязное решение, которое я использовал:
Я обнаружил, что начало основного текста - это единственное место Я вижу «<div class=WordSection1>
» в HTMLBody нового сообщения, поэтому я просто сделал замену, заменив
«<div class=WordSection1><p class=MsoNormal><o:p>
»
на
"<div class=WordSection1><p class=MsoNormal><o:p>" & sBody
, где sBody - это содержимое тела, которое я хочу вставить. Кажется, работает до сих пор.
.HTMLBody = Replace(oEmail.HTMLBody, "<div class=WordSection1><p class=MsoNormal><o:p>", "<div class=WordSection1><p class=MsoNormal><o:p>" & sBody)