Application.AutoCorrectEmail (Word)

Returns an AutoCorrect object that represents automatic corrections made to email messages.

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