Изменение типа и размера шрифта 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>"