Mostrar Temas
Quisiera pedirle a alguien que me revise el código que pongo a continuación, algo está mal pero no consigo saber que..
Situación:
Tengo una consulta "EnvioPrimera" que filtra datos de una tabla y muestra aquellos en los que la columna "Envio_1_reclamacion" está en blanco.
lo que quiero es que la función abra la consulta, y envíe un correo llamando a la funcion Enviar_Email_EnvioPrimera , de forma que mande el correo, escriba la fecha del día de hoy en el cmapo fecha_1_reclamación, lo actualice y pase a la siguiente hasta que todas las lineas de la columna tengan la fecha del día y finalice el proceso.
Para ello tengo el siguiente código:
Código:
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
Copio ademas el inicio de la funcion Enviar_Email_EnvioPrimera:
Código:
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
Espero alguien me pueda decir donde está el error..
Error de compilación: El número de argumentos es incorrecto o la asignación de propiedad no es válida.
Dicho error me lo marca en:
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")
Gracias de antemano!.
Un saludo.
Xantus.