UseThemeStyleOnReply Property

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