Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

13th
Сен

Изменение внешнего вида параметра .body

Posted by Chas under Basic, Пост-обзор

Вопрос следующего характера. Можно ли как то поработать с внешним видом параметра .body в макросе, то бишь, вывод в несколько строк, шрифт, цвет и прочие красивости.

Sub CreateHTMLMail()

  Dim olApp As Outlook.Application

    Dim objMail As MailItem

    Set olApp = Outlook.Application

    Set objMail = olApp.CreateItem(olMailItem)

    With objMail

       'Set body format to HTML

       .BodyFormat = olFormatHTML

       .HTMLBody = "<html><body><div>" &amp;amp;amp; _

"<h4><span style=""color: rgb(255, 0, 0); font-weight: bold;"">ПЕРВАЯ СТРОКА,красная и жирная<br>" &amp;amp;amp; _

"</span></h4></div>" &amp;amp;amp; _

"<h2>The <span style=""color: rgb(51, 204, 0);"">body </span>of this <span" &amp;amp;amp; _

"style=""color: rgb(51, 102, 255);"">message will appear</span> in <span" &amp;amp;amp; _

"style=""color: rgb(255, 0, 0);"">HTML</span>.</h2></body></html>"

       .Display

    End With

End Sub