Изменение типа и размера шрифта HTML-письма в VBA

у меня есть сценарий VBA, который генерирует и отправляет по электронной почте, когда кнопка VBA нажата в данном листе.

скрипт в настоящее время генерирует письмо относительно небольшим шрифтом. Мне было интересно, есть ли способ установить шрифт в Calibri, а текст sive-точно 11.

вот текущий скрипт VBA:

Private Sub CommandButton1_Click()

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim strUser As String
Dim signature As String
Dim sTo As String
Dim sCC As String
    'For To field
    Set emailRng = Worksheets("Send Email").Range("D3:I6")

    For Each cl In emailRng
        sTo = sTo & ";" & cl.Value
    Next

    sTo = Mid(sTo, 2)

    'For CC field
    Set emailRngCC = Worksheets("Send Email").Range("D8:I11")

    For Each cl In emailRngCC
        sCC = sCC & ";" & cl.Value
    Next

    sCC = Mid(sCC, 2)


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
    With OutMail
    .Display
    End With
        signature = OutMail.HTMLBody


    strbody = "<FONT SIZE = 3>Good Morning;<p>We have completed our main aliasing process for today.  All assigned firms are complete.  Please feel free to respond with any questions.<p>Thank you."

    With OutMail
        .SentOnBehalfOfName = ""
        .To = sTo
        .CC = sCC
        .BCC = ""
        .Subject = "Data Morning Alias Process - COMPLETE"
        .HTMLBody = strbody & signature
        .Display
    End With
End Sub

Я знаю, что эта часть кода:

strbody = "<FONT SIZE = 3.5>Good Morning;<p>We have completed our main aliasing

- это часть, которая относится к размеру текста электронной почты. Но установка 3-маленькая, а установка 4-слишком большая. Поэтому мне просто интересно, есть ли какой-то способ установить шрифт точно размером 11, а текст отформатировать как Calibri?

спасибо!

2 ответов


Я провел небольшое исследование и смог написать этот код:

strbody = "<BODY style=font-size:11pt;font-family:Calibri>Good Morning;<p>We have completed our main aliasing process for today.  All assigned firms are complete.  Please feel free to respond with any questions.<p>Thank you.</BODY>"

по-видимому, установив "font-size=11pt" вместо установки размера шрифта <font size=5>, Он позволяет выбрать определенный размер шрифта, как обычно, в текстовом редакторе, в отличие от выбора значения из 1-7, как мой код был первоначально.

этой ссылке от простого человека дал мне хорошую информацию.


FYI я также провел небольшое исследование, и если имя семейства шрифтов вы хотите применить содержит пробелы (в качестве примера я беру Gill Alt One Mt Light), вы должны написать так :

strbody= "<BODY style=" & Chr(34) & "font-family:Gill Alt One MT Light" & Chr(34) & ">" & YOUR_TEXT & "</BODY>"