Error con ?SendObject acSendReport

Resulta que tengo una rutina de envío de un reporte a diferentes usuarios, pero cuando se envía al primero en la lista detiene la sentencia, como verán la idea es que tome el Loop y envíe la información según la cantidad de usuarios, lo examine paso a paso y envía el correo al primer usuario y da por terminada la rutina.
Agradezco su colaboración.
Les envío parte de la instrruccion como para que se guíen:
FormatoExp = "FormatoSnapshot(*. Snp)"
Desc = Consulta que me relaciona los usuarios para enviar información...
Set Desc_rs = CurrentDb. OpenRecordset(Desc)
If Desc_rs. RecordCount > 0 Then
Do While Not Desc_rs. EOF
Correo = Desc_rs! Funcionario
On Error GoTo ErrorXp
DoCmd. SendObject acSendReport, "Entrega_Doc_Aud", FormatoExp, Correo, "", "", "Relación documentos enviados por la IPS", "Adjunto relación de los documentos solicitados por usted y que ya fueron enviados por la IPS. ", False
Desc_rs. MoveNext
Loop
Else
DoCmd. Close acForm, "DESCARGUE_DOCUMENTOS"
End If
DoCmd. Close acForm, "DESCARGUE_DOCUMENTOS"
ErrorXp:
If Err. Number = 2282 And SoloUnError = False Then
FormatoExp = "SnapshotFormat(*. Snp)"
SoloUnError = True
Resume
End If