Múltiples archivos un solo mensaje

Actualmente estoy utilizando lo siguiente para enviar archivos, el problema que tengo es que por cada archivo utilizo un mensaje y lo que me interesa es utilizar sólo un mensaje donde poder adjuntar todos los archivos

Option Compare Database

Public Sub EmailMasivo(NombreInforme, destinatario, Asunto, Optional Cuerpo, Optional CC, Optional CCO)

DoCmd.SendObject acSendReport, NombreInforme, "PDF", destinatario, CC, CCO, Asunto, Cuerpo, False

End Sub

Private Sub Comando15_Click()

Dim NombreInforme As String

Dim destinatario As String

Dim CC As String

Dim Asunto As String

Dim Cuerpo As String

'Entradas

NombreInforme = "Entradas"

destinatario = "[email protected]"

CC = "[email protected]"

CC0 = ""

Asunto = "Entrada de Mercancías filtro por articulo"

Cuerpo = ""

EmailMasivo NombreInforme, destinatario, Asunto, Cuerpo, , CC

'Entradas por hora

NombreInforme = "Entradas1"

destinatario = "[email protected]"

CC = "[email protected]"

CC0 = ""

Asunto = "Entrada de Mercancías filtro por hora"

Cuerpo = ""

EmailMasivo NombreInforme, destinatario, Asunto, Cuerpo, , CC

End Sub