如何在 Outlook 電子郵件中插入文本框

Question

我從 VBA 生成 Outlook 電子郵件作為自動化過程的一部分，我正在努力將文本框插入代碼中的電子郵件正文。

文本框將位於用於評論目的的特定位置。 首先，我計划將它們作為表格包含在內，但這些會改變主體的布局，我想避免這種情況。

然后我研究了像 z-orders 這樣的疊加方法，但無濟於事。

是否可以從 VBA 將覆蓋的文本框插入到電子郵件正文的特定位置？ 在 Outlook 中，這可以通過插入/文本框/繪制文本框輕松完成。

Answer 1

這是有關如何將文本框添加到 Outlook 電子郵件的快速示例

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

記得添加對word xx對象庫的引用

也看看怎么刪除