Как вставить текстовое поле в электронную почту Outlook

Question

Я генерирую электронные письма Outlook из VBA как часть процесса автоматизации, и я пытаюсь вставить текстовые поля в текст сообщения электронной почты в коде.

Текстовые поля будут находиться на определенной c позиции для комментариев. Во-первых, я планировал включить их в виде таблиц, но они меняют компоновку тела, чего я хотел бы избежать.

Затем я просмотрел методы наложения, такие как z-ордера, но безрезультатно.

Можно ли вставить наложенное текстовое поле в указанную c позицию сообщения электронной почты из VBA? В Outlook это легко сделать через текстовое поле insert / textbox / draw.

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

Смотрите также, как удалить