我有以下代码以电子邮件形式发送报告(pdf)。代码工作正常!但是,我希望我发送的当前记录的一个字段成为电子邮件主题的一部分。我尝试了很多东西,但没有任何效果。
当前主题是“订单已准备就绪!”
我希望这是“订单 [订单号] 已准备就绪!”
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
提前谢谢各位!