Private Sub btManda_Click()
DoCmd.SendObject acSendReport, "PPRFax", acFormatPDF, "Aptcoordinationcia@adr.it;ops.operazioni@servizia erei.eni.it", , , "Conferma Handling Servizi Aerei", "Conferma servizio handling per i voli della Servizi Aerei per il giorno " & etdatamail
End Sub
Dove "PPRFax" è il report dal quale stò mandando la mail!