change at runtime font outlook

[sal21]

To default when i post a new message i have calibri 11 font (see image)

Now i use this code to send email via vba code:

Code: Select all

....
dim .....
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

 With OutMail
        .SentOnBehalfOfName = "ttrtry"
        .To = DESTINATARIO
        .CC = DESTINATARIO1
        .Subject = "retrtretert."
        .HTMLBody = strMessage
        '.display
        .Send
        On Error GoTo 0

    End With

Set OutMail = Nothing
Set OutApp = Nothing
....

is possible to chenge the default font before send email, in arial 8????? exists a param of OutMail or OutApp to changing...????

[HansV]

You can change the font of the message text to Arial. Try:

Code: Select all

        .HTMLBody = "<font face=Arial>" & strMessage & "</font>"

[sal21]

You can change the font of the message text to Arial. Try:

Code: Select all

        .HTMLBody = "<font face=Arial>" & strMessage & "</font>"

Googoling....
To help other user:

objMessage.HTMLBody = "<div style='font-family:Arial;font-size:9pt;'>" & objMessage.HTMLBody & "</div>"wath you think about?

Tks in other case for suggestion

[HansV]

That is even better, especially if you want to use Calibri 12 instead of Arial 8 as you asked.