EmailOptions.PlainTextStyle (Word)

Returns the Style object that represents the text attributes for email messages that are sent or received using plain text.

Sub PlainTxt() 
 With Application.EmailOptions.PlainTextStyle 
 .Font.Name = "Tahoma" 
 .Font.Size = 10 
 End With 
End Sub