使用 VBA 代码来替代 ActiveX TextBox 实现在 Outlook 中显示文本框。

以下是示例代码：

1. 在 Outlook 中打开 Visual Basic 编辑器，打开你需要添加文本框的窗口模块。

2. 点击“插入”菜单，然后选择“用户窗体”选项。这样会添加一个新的用户窗体到你的代码编辑器中。

3. 在代码编辑器中，选择新添加的用户窗体，然后按 F4 显示其属性窗口。

4. 将“BackColor”属性设置为白色，将“BorderStyle”属性设置为 1 - 3D 样式。

5. 在用户窗体中添加一个新的文本框控件。

6. 双击新添加的文本框控件，在其代码窗口中添加以下代码：

Private Sub txtName_Exit(ByVal Cancel As MSForms.ReturnBoolean) ActiveInspector.CurrentItem.UserProperties("Name").Value = txtName.Text End Sub

7. 在你的主窗口模块中的“Open”事件中添加以下代码：

Dim MyUserForm As UserForm1 Set MyUserForm = New UserForm1 With MyUserForm .txtName.Text = ActiveInspector.CurrentItem.UserProperties("Name").Value .Show End With Set MyUserForm = Nothing

这样，当你打开窗口时就会显示一个文本框控件。你可以在其中输入文本，并将其存储在 Outlook 中。