Enviar varios ficheros en un mensaje

Quiero poder enviar más de un fichero por destinatario. Actualmente sólo puedo enviar un único fichero. Estoy empleando lo siguiente:
Dentro del módulo tengo:

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

Y en el Form tengo esto:

Private Sub Comando6_Click()

Dim NombreInforme As String

Dim destinatario As String

Dim Asunto As String

Dim Cuerpo As String

'Rendimientos

NombreInforme = " "

destinatario = " "

CC = ""

CC0 = ""

Asunto = " "

Cuerpo = ""

EmailMasivo NombreInforme, destinatario, Asunto, Cuerpo, , CC

Estaría muy agradecido si me pudieran echar una mano...