Envío Correo CDO

   Buenos días, tengo el siguiente código de Buho en un módulo para la Función EnviaCorreo....
Function EnviaCorreo(StrPara As String, StrDe As String, _
                          StrAsunto As String, StrCuerpo As String, StrRutaAdjunto As String, _
                          Optional IntFormato As Integer = 1)
    Dim ObjetoMensajeLibre As Object, strHTML As String

    'Enviando Correo utilizando autentificación remota del server
    ' Creamos el objeto.
    On Error GoTo EnviaCorreoLibre_Err
    Set ObjetoMensajeLibre = CreateObject("CDO.Message")

    ' A quien va el mensaje. Para multimples destinos, separa las direcciones de correo por «;»
    ObjetoMensajeLibre.To = StrPara

    ' Aquí va el asunto
    ObjetoMensajeLibre.Subject = StrAsunto

    'Quien envía el correo. ! ojo ! solo funciona con esta sitaxis:
    ' Nombre <tucuenta@tuservidor.com>
    'es decir, por ejemplo: Francisco Javier garcía Aguado<paco@nemo.es>
    'Ojo al dato pues
    ' OJO  OJO  OJO  OJO :
    ObjetoMensajeLibre.From = StrDe
    'se rechaza si no se recibe una cadena tipo <algo@algo.es>

    Select Case IntFormato

    Case 1
        'Aqui va el cuerpo sin formato
        ObjetoMensajeLibre.TextBody = StrCuerpo
    Case 2
        ' Si quieres formato HTML:
        ' Formato HTML en el cuerpo del mensaje.
        strHTML = "<HTML>"
        strHTML = strHTML & "<HEAD>"
        strHTML = strHTML & "<BODY>"
        strHTML = strHTML & _
                  Replace(StrCuerpo, vbCr, "<Br>") & "</br>"
                  '"<b>" & Replace(StrCuerpo, vbCr, "<Br>") & "</b></br>"
        strHTML = strHTML & "</BODY>"
        strHTML = strHTML & "</HTML>"
        ObjetoMensajeLibre.HTMLBody = strHTML
    Case Else
        ObjetoMensajeLibre.TextBody = StrCuerpo
    End Select

    ' Para fichero adjunto:
    If Len(StrRutaAdjunto) <> 0 Then
        ObjetoMensajeLibre.addattachment ("file://" & StrRutaAdjunto)
    End If

    '****************************************************
    'Aqui comienza en si las configuraciones del server de correo remoto
    ' ****************************************************
    ObjetoMensajeLibre.Configuration.Fields.Item( _
            "http://schemas.microsoft.com/cdo/configuration/sendusing") = _
            ConstanteCDOPuerto

    '  Aquí puedes poner, bien el literal, bien la IP
    'de la maquina remota del server.

    ObjetoMensajeLibre.Configuration.Fields.Item( _
            "http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
            StrServer    ' recuerda, _
                         es tu servidor de correo...lo puedes ver en las configuraciones
    '  de tu gestor de correo

    'Ahora especificamos el tipo de autentificacion que el server espera:

    ObjetoMensajeLibre.Configuration.Fields.Item( _
            "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = _
            ConstanteCDOA_Basica

    ' Aquí el nombre de usuario que el sever espera recibir(Lo puedes ver en las configuraciones
    'de las cuentas de Outlook y Outlook  Express:

    ObjetoMensajeLibre.Configuration.Fields.Item( _
            "http://schemas.microsoft.com/cdo/configuration/sendusername") = _
            StrUsuario

    ' Aquí el password (Contraseña) del usuario (Tambien la sacas de la configuracion del OE & Outlook)

    ObjetoMensajeLibre.Configuration.Fields.Item( _
            "http://schemas.microsoft.com/cdo/configuration/sendpassword") = _
            StrPassword

    'Aqui el puerto. Casi siempre el 25.... asi que lo dejo a a piñon fijo
    ObjetoMensajeLibre.Configuration.Fields.Item( _
            "http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465

    'Si estas usando SSL para la conexión. Valores (False or True)
    ObjetoMensajeLibre.Configuration.Fields.Item( _
            "http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

    ' Tiempo en segundos para que se establezca correctamente el protocolo SMTP.
    ObjetoMensajeLibre.Configuration.Fields.Item( _
            "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

    ' Guardamos....
    ObjetoMensajeLibre.Configuration.Fields.Update

    ' Y ! POR FIN !  enviamos
    ObjetoMensajeLibre.Send
EnviaCorreoLibre_Exit:
    Exit Function
EnviaCorreoLibre_Err:
    MsgBox "Error nº " & Err.Number & vbCrLf & Err.Description & vbCrLf & _
           "en procedimiento EnviaCorreoLibre de Módulo ModuloCdo", vbCritical, "Aviso de error"
    Resume EnviaCorreoLibre_Exit
End Function

Posteriormente en el botón del formulario que utilizo para enviar tengo el siguiente que llama a la función de enviar el correo automáticamente a cada registro de la tabla

Dim db As DAO.Database
Dim rs As Recordset

'CREAMOS LAS VARIABLES
Dim s As String, R1 As String, R2 As Strin

' activamos la BD
Set db = CurrentDb

' Creamos el Recordset:
s = Me.Id_TRA
Set rs = db.OpenRecordset("Select * from "tabla" where [ID] =" & s & "")

' Recorremos el recordset:
Do While Not rs.EOF

'ASIGNAMOS VALORES A LAS VARIABLES
R1 = rs("nombre1")
R2 = rs("nombre2")

'Este codigo es el que va en el comando 44
Dim rpt As Report
Dim varMiCarpetaPDF As String

'Indicamos la carpeta por defecto
varMiCarpetaPDF = "C:\xxxxx\"

'Aqui elegimos pate del nombre del pdf
Dim varNumeroFactura As String
varNumeroFactura = s

'Aqui gurdamos la ruta del archivo pdf
Dim varRutaAdjunto As String
varRutaAdjunto = "C:\xxxxx\"

'Aqui guardamos el nombre del archivo pdf
Dim varNombrePDF2 As String
varNombrePDF2 = varNumeroFactura & ".pdf"

'Aqui unimos la ruta del archivo y el nombre del pdf, POR LO TANTO YA TENEMOS LA RUTA Y EL NOMBRE DEL ARCHIVO para el adjunto
Dim varAdjunto As String
varAdjunto = varRutaAdjunto & "" & varNombrePDF2

Dim varRemitente As String
varRemitente = "xxx@xxx.com"

'Enviarmos el correo

EnviaCorreo rs("EMAIL"), varRemitente, _
     "Solicitud asutno:xxxxx", "Texto Mensaje", varAdjunto, 2

rs.MoveNext
Loop

Lo que me gustaría es que en lugar de enviar sólo 1 archivo adjunto, pudiera enviar tantos como variables R1, R2 tuviera en el registro.

¿Qué debería cambiar tanto en el primer código como en el segundo para que pueda enviar más de 1 adjunto?

Muchas gracias y perdón si la respuesta está ya contestada, pero no la he podido encontrar.

Un saludo.