无法在microsoft Outlook VBA中使用EmailOptions属性

我正在试验EmailOptions属性。 我在MicrosoftDocs（）上找到了这个示例，我正在尝试。但它给出了错误：“对象不支持此属性或方法”

我添加了对MS Word和Excel的引用。我错过了什么

Option Explicit

Sub x()
With Outlook.Application.EmailOptions.EmailSignature
    If .NewMessageSignature = "" Then
        MsgBox "There is no signature for new " 
    Else
        MsgBox "There is signature for new e-mail"
    End If
End With
End Sub

---

EmailOptions

属性由

Word.Application

对象公开，而不是由

Outlook.Application

对象公开。

EmailOptions

属性由

Word.Application

对象公开，不是通过

Outlook.Application

对象。将Outlook应用程序更改为word应用程序对象后，我使用了相同的代码，但它不起作用

Sub x（）将WordApp设置为Word.Application With WordApp.EmailOptions.EmailSignature

请显示初始化WordApp变量的代码。将outlook应用程序更改为Word应用程序对象后，我使用了相同的代码，但它不起作用

Sub x（）将WordApp设置为Word.Application和WordApp.EmailOptions.EmailSignature

请显示初始化WordApp变量的代码。