Как отредактировать полученное письмо, увеличить размер шрифта и отобразить Print Preview

Question

Outlook 2016, похоже, не дает возможности изменить размер текста при печати писем в формате HTML. Я хотел бы решить эту проблему с помощью макроса.

Стоит:

1. Открыть выбранное сообщение.

2. Измените формат на HTML (для простых текстовых писем (даже если размер текста будет регулироваться для этих писем)).

3. Переход в режим редактирования.

4. Выделите весь текст.

5. Увеличить размер шрифта (в х раз).

6. Отображение диалогового окна печати. ​​

Вот немного, что я понял до сих пор:

Sub test()
    ActiveExplorer.Selection(1).Display
    ActiveExplorer.Selection(1).BodyFormat = olFormatHTML
    ActiveInspector.CommandBars.ExecuteMso "EditMessage"
    SendKeys "^(a)"
    SendKeys "^+(<)"
    SendKeys "^+(<)"
    SendKeys "^+(<)"
    SendKeys "^+(<)"
    SendKeys "%(du)"
End Sub

Это работает, но я не очень доволен этим.

Есть идеи, как я могу выполнить шаги 4-6 без SendKeys?

Answer 1

Попробуйте это

Option Explicit
Public Sub Example()
    Dim olMsg As Object
    Set olMsg = ActiveExplorer.selection.Item(1)

    Dim Email As Outlook.MailItem
    If TypeOf olMsg Is MailItem Then
       Set Email = olMsg

       If Email.BodyFormat <> olFormatHTML Then
          Email.BodyFormat = olFormatHTML
          Email.Body = "<font size=" & "30" & ">" & Email.Body & "</font>"
          Email.Save
          Email.Display
          ActiveInspector.CommandBars.ExecuteMso "FilePrintPreview"
       End If

    End If
End Sub