Mensajes

Cierto.

Sin embargo al quitar el parámetro date y ejecutar me da el siguiente error.

Error de compilación: El argumento no es opcional.

Que puede ser?
Gracias!

Buenas tardes.

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 [Seleccionar] Expandir

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 [Seleccionar] Expandir

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.