Application.AutoCorrectEmail (Word)

Devuelve un objeto AutoCorrect que representa las correcciones automáticas realizadas en los mensajes de correo electrónico.

Sub AutoCorrectEMailAddress() 
 With Application.AutoCorrectEmail 
 .Entries.Add Name:="allways", Value:="always" 
 .Entries.Add Name:="hte", Value:="the" 
 .Entries.Add Name:="hwen", Value:="when" 
 End With 
End Sub