EmailOptions.PlainTextStyle (Word)

Devuelve el objeto Style que representa los atributos de texto de los mensajes de correo electrónico que se envían o reciben utilizando texto sin formato.

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