Forms 如何使用textbox的内容从Access表单生成电子邮件

我有一个带有“帮助”按钮的主表单，它打开一个简单表单，其中有一个文本框，用户可以使用该文本框提交主表单中记录的问题。我希望用户在文本框中键入的内容可以通过“发送”按钮通过电子邮件发送给我自己和同事

我在stackoverflow上找到了以下代码，除了我不知道如何让电子邮件正文包含用户在文本框中键入的内容，而不是当前代码中的静态文本

下面是代码现在的样子：

 Private Sub SendEmail_Click()
    Dim olApp As Object
    Dim objMail As Object
    Dim Issue As String
    strIssue = Me.ContactMessageBox

   On Error Resume Next 'Keep going if there is an error
   Set olApp = GetObject(, "Outlook.Application") 'See if Outlook is open

   If Err Then 'Outlook is not open
     Set olApp = CreateObject("Outlook.Application") 'Create a new instance
   End If
     'Create e-mail item
     Set objMail = olApp.CreateItem(olMailItem)

  With objMail
    .To = "emailaddress.com"
    .Subject = "Form issue"
    .Body = "strIssue"
    .send
  End With

  MsgBox "Operation completed successfully"

End Sub

有没有人知道怎么做

提前感谢。

更改

Dim Issue As String
strIssue = Me.ContactMessageBox   

...

.Body = "strIssue"

到

---

如果将变量置于“”之间，则它将被读取为字符串而不是变量。

啊，我明白了。这就解决了问题。谢谢你，詹斯！

Dim strIssue As String
strIssue = Me.ContactMessageBox  

...

.Body = strIssue