Question

我一直在使用下面的代码，没有任何问题。我有一个Powerpoint幻灯片，点击它时会打开一个UserForm。该userform包含一个名为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

谢谢！

VBA使用TextBox从用户窗体发送邮件作为Windows 10上的正文内容

1 个答案: