Issue with Font Change

[ABDKAFAN]

I have a macro in place which sends out emails from Lotus notes.
I want to change the font of the body from times new Roman to "Arial".Can you please guide me as to how to do that.
The following is the piece of code.
With NRTStyle
.NotesFont = FONT_ROMAN
.FontSize = 12
.NotesColor = COLOR_RED
.Bold = True
End With

Replacing FONT_ROMAN with FONT_ARIAL gives me an error.
Thanks for reading this.

 

[yesterdays]

Try this :

With NRTStyle.Font
        .Name = "Arial"
.Color = -16776961
.Bold = True
    End With

 

[ABDKAFAN]

Try this :

With NRTStyle.Font
        .Name = "Arial"
.Color = -16776961
.Bold = True
    End With

Thanks for the suggestion.
I get Type mismatch when I just give .name= "ARIAL"

 

[chetanmehra1989]

With Range("A1:a10").Font
.Bold = True
.ColorIndex = 5
.Italic = True
.Underline = True
End With

 

[ABDKAFAN]

With Range("A1:a10").Font
.Bold = True
.ColorIndex = 5
.Italic = True
.Underline = True
End With

Hi Chetanmehra1989,
Thanks for the suggestion.
It looks the code u have given me modifies the font of a range in excel.However,here I am trying to modify the font of the body of an email using rich text.

 

[yesterdays]

Ok i Found something :
NotesFont property
The only Legal value for .notes.font is :

• FONT_COURIER
  FONT_HELV
  FONT_ROMAN
  
  

 

[yesterdays]

..

 

[ABDKAFAN]

..

I really hope I find something to change the name to ARIAL..
Anyways,Thanks for the info mate..