Как создать заполняемую форму с кнопкой «Отправить» в Word

В этом уроке вы узнаете, как создать заполняемую форму с кнопкой «Отправить» в Word. Я включил скрипт на Visual Basic в описание ниже, чтобы вы могли использовать его на этом этапе.

ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ:
https://melcompton.com/recommends/adobe/

ОБОРУДОВАНИЕ:
Ноутбук Lenovo ThinkPad: https://amzn.to/2NvXTGU
Мониторы Dell: https://amzn.to/3r0iwte
Подставка VIVO для двух мониторов: https://amzn.to/3bBmJ0f
Беспроводная мышь и клавиатура Logitech: https://amzn.to/2OX7V4g
USB-концентратор с питанием: https://amzn.to/3bBmCBR
Focusrite Scarlett Solo: https://amzn.to/3aMzIwV
Гарнитура Audio-Technica: https://amzn.to/2Np3Qpl
Сменные амбушюры WC Wicked Cushions: https://amzn.to/3uoihuh

ОБЩАЕМСЯ:
Facebook:   / therealmelcompton  
Twitter:   / melissaecompton  
LinkedIn:   / melissa-compton-17701240  
Instagram:   / melissaacompton  

ПРИМЕЧАНИЕ: Это описание содержит партнёрские ссылки, а это значит, что я получу небольшую комиссию, если вы совершите покупку по этим ссылкам, без каких-либо дополнительных затрат. Это поможет поддержать канал и позволит мне продолжать снимать подобные видео. Спасибо за вашу поддержку!

*** КОД VISUAL BASIC ДЛЯ КНОПКИ «ОТПРАВИТЬ»**

Обязательно измените .subject, .body и .to, чтобы всё работало.

Dim xOutlookObj как объект

Dim xEmail как объект

Dim xDoc как документ

Application.ScreenUpdating = False

Set xOutlookObj = CreateObject("Outlook.Application")

Set xEmail = xOutlookObj.CreateItem(olMailItem)

Set xDoc = ActiveDocument

xDoc.Save

With xEmail

.Subject = "Тестовое письмо"

.Body = "Это тестовое письмо для кнопки "Отправить""

.To = "[email protected]"

.Importance = olImportanceNormal

.Attachments.Add xDoc.FullName

.Display

End With

Set xDoc = Nothing

Set xEmail = Nothing

Set xOutlookObj = Ничего

Application.ScreenUpdating = True

Конец подпрограммы