-1

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

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

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

Текущий код:

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

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

2 ответа2

0

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

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

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

0

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

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

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.

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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .