Excel 将userform输入添加到电子邮件VBA代码到电子邮件正文

我需要能够从Excel发送电子邮件，但我希望在您按submit后，电子邮件正文包含userform中的值

我尝试了不同的方法，但我仍然坚持使用下面的代码

Dim aOutlook As Object
Dim aEmail As Object
Dim rngeAddresses As Range, rngeCell As Range, strRecipients As String

Set aOutlook = CreateObject("Outlook.Application")
Set aEmail = aOutlook.CreateItem(0)

'set Importance
aEmail.Importance = 2
'Set Subject
aEmail.Subject = "TestMailSend"
'Set Body for mail
aEmail.Body = "Campaign Name" & Me.ComboBox5.Value
              "Job Number" & Me.ComboBox4.Value
              "Revenue" & Me.ComboBox3.Value


'send one off to 1 person use this static code
'aEmail.Recipients.Add "E-mail.address-here@ntlworld.com"
aEmail.Recipients.Add "Insert email address here"
'Send Mail
aEmail.Send

---

也许您应该更改以下内容：

'Set Body for mail
aEmail.Body = "Campaign Name: " & Me.ComboBox5.Value & chr(10) & _
              "Job Number: " & Me.ComboBox4.Value & chr(10) & _
              "Revenue: " & Me.ComboBox3.Value

&

合并了两个值，

chr（10）

添加了一个换行符，

允许您编写多行代码

---

HTH；）

你到底有什么问题？你的用户表单中有代码吗？顺便说一句，你应该使用

&

来连接你电子邮件正文的数据这就是问题所在：aEmail.Body=“Campaign Name”Me.ComboBox5.Value“Job Number”Me.ComboBox4.Value“Revenue”Me.ComboBox3.Value你已经检查过我的答案了吗？它是否按照你的想法工作？谢谢，这就解决了问题。不过，这都是一句话。有没有一种方法可以调整成多行，这样每条记录都可以显示在自己的行上？非常感谢你的支持，太棒了。效果很好。谢谢你的帮助，我希望这有助于该网站。如果您对解决方案感到满意，也许您可以接受答案？：）