EmailOptions.PlainTextStyle (Word)

Retorna o objeto Style que representa os atributos de texto para mensagens de email que são enviadas ou recebidas usando texto sem formatação.

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