expression.UseThemeStyleOnReply
expression Required. An expression that returns an EmailOptions object.
Example
This example tells Word to use a theme when replying to e-mail if Word uses a theme for new messages.
Sub NewTheme()
With Application.EmailOptions
If .UseThemeStyle = True Then
.UseThemeStyleOnReply = True
End If
End With
End Sub