Private Sub Comando60_DblClick(Cancel As Integer)

    Dim rs As DAO.Recordset
    
    If MsgBox("Se va a proceder al envío de 1ª Reclamación, ¿Continuar?", vbYesNo + vbExclamation, "Atención") = vbNo Then Exit Sub
    
    Set rs = CurrentDb.OpenRecordset("Select * from [EnvioPrimera]")
    If rs.EOF Then
        MsgBox "No hay registros pendientes de reclamar.", vbInformation, "Atención"
    Else
        Do Until rs.EOF
            Enviar_Email_Envioprimera rs("NUMERO_DE_CONTRATO"), rs("OFICINA"), rs("FECHA_1_RECLAMACION"), rs("CONTRATO"), Date, rs("CCM"), rs("SEGURO"), rs("GARANTIA_RECOMPRA"), rs("ENVIO_RENT_and_TECH")
            rs.Edit
            rs("FECHA_1_RECLAMACION") = Date
            rs.Update
            rs.MoveNext
        Loop
        MsgBox "Correos Enviados Correctamente.", vbInformation
    End If
    
    rs.Close
    Set rs = Nothing
End Sub

Private Sub Enviar_Email_Envioprimera(NUMERO_DE_CONTRATO, OFICINA, FECHA_1_RECLAMACION, CONTRATO, CCM, SEGURO, GARANTIA_RECOMPRA, ENVIO_RENT_and_TECH)

    On Error GoTo Err_CORREO_Click
    Dim dbs As Database, qdf As QueryDef, consulta As String
    Dim cuerpo As String, para As String, cc As String, asunto As String
    Dim comentario As String
    Dim CONTRATO As String
    Dim CCM As String, GARANTIA_RECOMPRA As String, SEGURO As String, _
        Anexo_1 As String, Anexo_2 As String, _
        Anexo_3 As String, Anexo_4 As String