1

我有以下代码以电子邮件形式发送报告(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

提前谢谢各位!

4

1 回答 1

0

只需使用字符串连接插入您的字段

代替 :

 "Order is ready!"

利用

 "Order #" & Me.orderID & " is ready!"
于 2016-07-24T21:03:27.090 回答