I have the following code attached to a button
BudHdr = InputBox("You may also send a complete set of these reports. To do so, please type the name of the recipient(s) in the box below. Please use an ; to identify different recipients.", "E-mail ALL ?")
DoCmd.SendObject acSendReport, ...