VBA在Windows 10上从用户窗体发送带有文本框的邮件作为正文内容

Question

I've been using the code below without any problems for a while now. I have a Powerpoint slide, that when clicked opens a UserForm. That userform contains a button, named SendMail, and a TextBox.

the user insert comments into the Textbox, clicks SendMail and I get his comments in my e-mail box. This code doesn't seem to work properly, when a Windows10 user hits SendMail. I get an e-mail with a subject but the body is empty.

See below the code that works for any other Windows (Please note EmailBox is the name for the TextBox where the user inputs his questions):

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 = "random.email@yahey.com"
        .CC = ""
        .BCC = ""
        .Subject = "Question about random stuff"
        .Send
    End With

    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

    Unload Me
End Sub

Anyone has any ideas??

Answer 1

As per Nathan_Sav comment, added .value to the body line and it worked perfectly.

.Body = EmailBox.value

Thanks!