Vba 如何在Outlook电子邮件中插入文本框

作为自动化过程的一部分，我从VBA生成Outlook电子邮件，我正在努力将文本框插入到代码中的电子邮件正文中

文本框将位于用于评论目的的特定位置。首先，我计划将它们作为表格包含，但这些会改变主体的布局，这是我希望避免的

然后我研究了像z-顺序这样的覆盖方法，但没有结果

是否可以从VBA将覆盖的文本框插入电子邮件正文的特定位置？在Outlook中，这可以通过插入/textbox/draw textbox轻松完成。

下面是如何将textbox添加到Outlook电子邮件的快速示例

以下是如何将文本框添加到Outlook电子邮件的快速示例

---

文本框是winforms对象，但听起来像是在谈论HTML元素？您正在尝试添加输入字段吗？请注意，您无法控制您的电子邮件在收件人系统上的显示方式。虽然布局和格式可能在您这边看起来很好，但它们可以在收件人那边以外的任何地方看到。Textbox是winforms对象，但听起来像是在谈论HTML元素？您正在尝试添加输入字段吗？请注意，您无法控制您的电子邮件在收件人系统上的显示方式。虽然布局和格式可能在你这边看起来很棒，但它们可以在收件人那边以外的任何地方看到。非常好，谢谢！如果其他人正在看这个问题，需要补充的一件事是，我必须添加outlook xx.x对象库的引用以及要运行的代码，并将应用程序.ActiveInspector（）从VBA更改为outlook.ActiveInspector，因为它没有将outlook注册为主应用程序，而是将Excel注册为。工作正常谢谢！如果其他人正在看这个问题，我需要补充的一点是，我必须添加outlook xx.x对象库的引用，以及要运行的代码，并将应用程序.ActiveInspector（）从VBA更改为outlook.ActiveInspector，因为它没有将outlook注册为主应用程序，而是将Excel。

Option Explicit
Public Sub Example()
    Dim Inspector As Outlook.Inspector
    Set Inspector = Application.ActiveInspector()

    Dim wdDoc As Word.Document
    Set wdDoc = Inspector.WordEditor

    'Add a text box
    Dim Shp As Word.Shape
    Set Shp = wdDoc.Shapes.AddTextbox _
                    (Orientation:=msoTextOrientationHorizontal, _
                    Left:=100, Top:=75, Width:=150, Height:=200)


    Set Inspector = Nothing
    Set wdDoc = Nothing
End Sub