Пустой контент электронной почты с макросом

Question

Использование потока Здесь я создал макрос, который откроет шаблон в новом окне сообщения. Моя подпись все еще внизу.

Я хочу очистить содержимое электронной почты перед добавлением шаблона, я новичок в VBA и не знаю, как это сделать!

Как это сделать?

Текущий код:

Sub TemplateName()
    Set msg = Application.CreateItemFromTemplate("C:\Users\xyz\Desktop\template.oft")
    msg.Display
End Sub

Я хочу очистить электронную почту перед запуском этого саба.

Answer 1

Установите подпись в "Новые сообщения".

Файл | Варианты | Почта | Подписи

Новые сообщения: (нет)

Answer 2

Определите длину текста шаблона и оставьте только это.

Допустим, начало подписи уникально.

Dim sig_start as long
Dim template_text_end as long

sig_start = InStr(msg.Body, "unique text at the start of the signature")
template_text_end = sig_start - 1
msg.Body = Left(msg.Body, template_text_end)
debug.print template_text_end

Когда вы определили положение конца текста шаблона, вы можете решить не выяснять это каждый раз.

Возможно, вам придется попробовать MSG.HTMLBody.

Управлять телом сложно, вы можете потерять форматирование.