Make a form to pick the record you want to show/send.
A list box of the users to get the mail. I had code that when send btn is clicked it would cycle thru the list sending an email to each.
It also could send to only 1 person by dbl-clicking on the 1 name in the list.
Code:
'------------
Public Sub ScanAndEmail()
'------------
Dim vTo, vSubj, vBody, vRpt
Dim vFilePath
dim i as integer
vRpt = "rReport1"
vQry = "qsData"
vBody = "body of email"
vSubj = vRpt
'scan the list box
For i = 0 To lstEAddrs.ListCount - 1
vItm = lstEAddrs.dataitem(i)
lstEAddrs = vItm
vTo = lstEAddrs.Column(1) 'col 1 has name, col2 has email
'send report
DoCmd.SendObject acSendReport, vRpt, acFormatPDF, vTO, , , vSubj, vBody
'send query as datasheet
DoCmd.SendObject acSendQuery, vQry, acFormatXLSX, vTO, , , vSubj, vBody
Next
End Sub