Как отправить электронное письмо с указанным полужирным / размером / цветом / подчеркнутым текстовым форматом в Excel?

Формат HTML body может обогатить письмо и сделать его более удобным для чтения. В этой статье обсуждается, как отправить письмо с текстом в формате HTML в Excel, добавив жирный шрифт, подчеркивание, а также заданный размер и цвет текста.

Отправить электронное письмо с указанным полужирным шрифтом / размером / цветом / подчеркиванием текста в формате с кодом VBA

Отправить электронное письмо с указанным полужирным шрифтом / размером / цветом / подчеркиванием текста в формате с кодом VBA

Пожалуйста, примените ниже код VBA, чтобы отправить электронное письмо с определенным форматом тела HTML в Excel.

1. нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте ниже код VBA в окно кода.

Код VBA: отправка электронной почты с определенным полужирным / размером / цветом / подчеркиванием текстового формата в Excel

Sub SharePerformance1()
'Update by ExtendOffice 2018/3//5
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xOutMsg As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xOutMsg = "<b>This text is bold</b><br/><span style=""color:#80BFFF"">Font Color</span style=""color:#80BFFF""><br />" & _
               "<u>New line with underline</u><br /><p style='font-family:calibri;font-size:25'>Font size</p>"
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "Html format email"
        .HTMLBody = xOutMsg
        .Display
    End With
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

Заметки:

3. нажмите F5 ключ для запуска кода. Затем открывается электронное письмо с телом указанного формата HTML. Пожалуйста, нажмите на Отправить кнопку, чтобы отправить его.

Статьи по теме:

• Как автоматически отправлять электронную почту на основе значения ячейки в Excel?
• Как вставить подпись в электронную почту Outlook при отправке по vba в Excel?
• Как отправить электронную почту без Outlook в Excel?
• Как отправить конкретную диаграмму по электронной почте с помощью vba в Excel?
• Как отправить электронное письмо в определенное время суток в Excel?
• Как отправить электронное письмо с телом электронной почты HTML в Excel?