VBA Send Mail с TextBox от пользовательской формы в качестве основного содержимого в Windows 10

Question

Я использую код ниже без каких-либо проблем в настоящее время. У меня есть слайд Powerpoint, который при нажатии открывает пользовательскую форму. Эта пользовательская форма содержит кнопку с именем SendMail и TextBox.

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

Ниже приведен код, который работает для любой другой Windows (обратите внимание, EmailBox - это имя для TextBox, где пользователь вводит свои вопросы):

Private Sub SendEmail1_Click()

Dim OutApp As Object
Dim OutMail As Object
Dim strText As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .Body = EmailBox
        .To = "[e-mail]"
        .CC = ""
        .BCC = ""
        .Subject = "Question about random stuff"
        .Send
    End With

    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

    Unload Me
End Sub

У кого-нибудь есть идеи?

Answer 1

Согласно комментарию Nathan_Sav, добавили.value к строке тела, и это сработало отлично.

.Body = EmailBox.value

Спасибо!