我有以下代码将报告(pdf)作为电子邮件发送。 代码工作正常!但是,我希望我发送的当前记录的字段是电子邮件主题的一部分。我尝试了很多东西,但没有任何作用。
当前主题是"订单准备就绪!"
我希望这是"订单[ordernumber]准备就绪!"
Private Sub sendesoreq_Click()
Dim stDocName As String
stDocName = "orderfinished_2"
DoCmd.OpenReport stDocName, acPreview, , "[orderID] = " & Me.orderID
DoCmd.SendObject acSendReport, "orderfinished_2", ".pdf",
"mymail@gmail.com", , , "Order is ready!", "Success! The
following order is ready for shipment. Thank you!", False
Me.orderstatuscombo.Value = "ESO request sent"
End Sub
先谢谢你们!
答案 0 :(得分:0)
只需使用字符串连接即可插入字段
而不是:
"Order is ready!"
使用
"Order #" & Me.orderID & " is ready!"