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

謝謝！