expression.AutoCorrectEmail
expression Required. An expression that returns one of the objects in the Applies to list.
Example
This example adds AutoCorrect entries for e-mail messages. After this code runs, every instance of "allways," "hte," and "hwen" that's typed in an e-mail message will be replaced with "always," "the," and "when," respectively.
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