Auto naming email title with concatenated text box

[jjake]

Hello.

I have a Purchase order report that gets it PO# from the following code

=Format([OrderDate],"mmddyy") & Format([OrderID],"00")

The name of the text box the PO displayed is [Text49] (I know, i know....)


I have a button that exports the selected report to an email

Private Sub cmdSend_Click()

DoCmd.RefreshRecord

DoCmd.SendObject acSendReport, "rptPurchaseOrder", "PDF", "Person@Email.com", , , "Purchase Order", "", False

How could i get it to input the purchase order # Next to the "Purchase Order" in the title?

 

[MarkK]

Maybe . . .

DoCmd.SendObject acSendReport, "rptPurchaseOrder", "PDF", "Person@Email.com", , , "Purchase Order [COLOR="Blue"]#" & Me.Text49[/COLOR], "", False