VBA在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 = "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

任何人有任何想法吗？

Answer 1

根据Nathan_Sav注释，将.value添加到正文行中，并且效果很好。

.Body = EmailBox.value

谢谢！