Access - Envío distintos informes a distintas direcciones de correo

Private Sub cmdMailReport_Click()

On Error GoTo sol_err

    Dim vDest As String, vCC As String, vCCO As String

    Dim miAsunto As String, miMsg As String

        'Cogemos el valor del destinatario

    vDest = Nz(Me.MailCont.Value, "")

        'Cogemos el valor de la copia

    vCC = Nz(Me.cboCC.Value, "")

        'Cogemos el valor de la copia oculta

    vCCO = Nz(Me.cboCCO.Value, "")

        'Cogemos el valor del asunto

    miAsunto = Nz(Me.txtAsunto.Value, "")

        'Cogemos el valor del cuerpo del mensaje

    miMsg = Nz(Me.txtMsg.Value, "")

        'Si no existe mail para el destinatario lanza un mensaje de aviso y sale del proceso

    If vDest = "" Then

        MsgBox "No existe mail donde enviar el informe", vbCritical, "AVISO"

        Exit Sub

    End If

        'Realizamos el envío

    DoCmd.SendObject acSendReport, "C_ARAHUETES", , vDest, vCC, vCCO, miAsunto, miMsg, 0

sol_err:

    Exit Sub

End Sub

Private Sub cmdMailReport_Click()

    On Error GoTo sol_err

    Dim vDest As String, vCC As String, vCCO As String

    Dim miAsunto As String, miMsg As String

    Dim PermitirAñadir As Boolean

    'Activamos AllowAditions para poder saber cuando hemos terminado de recorrerlo

    PermitirAñadir = Me.AllowAditions

    Me.AllowAditions = True

    DoCmd.GoToRecord acDataForm, Me.Name, acFirst

    Do While Not Me.NewRecord

        vDest = Nz(Me.MailCont.Value, "")

        vCC = Nz(Me.cboCC.Value, "")

        vCCO = Nz(Me.cboCCO.Value, "")

        miAsunto = Nz(Me.txtAsunto.Value, "")

        miMsg = Nz(Me.txtMsg.Value, "")

        If vDest <> "" Then 'Si hay destinatario se manda y si no lo salta

            DoCmd.SendObject acSendReport, "C_ARAHUETES", , vDest, vCC, vCCO, miAsunto, miMsg, 0

        End If

        DoCmd.GoToRecord acDataForm, Me.Name, acNext

    Loop

sol_err:

    Exit Sub

    Me.AllowAdditions = PermitirAñadir

End Sub