1

Necesito que una funion envíe un correo y luego genere una cuenta regresiva de espera para la respuesta de dicho correo. Tengo scripts para el envio del correo y establecer el tiempo de espera y aparte tengo una funcion de timer. el problema es que cuando lo llamo aparece el error de que el argumento no es opcional.

    Sub Liberador_1()

    SendToMail = "[email protected]"
    MailSubject = "Validacion de orden de compra pendiente"
    mMailBody = "Estimado Lukas, porfavor liberar orden de compra numero " & Range("A" & r.Row) & " por " & Range("E" & r.Row) & " " & Range("F" & r.Row) & " creada el " & Range("C" & r.Row) & " quedan 1 dias! "
Set mApp = CreateObject("Outlook.Application")
Set mMail = mApp.CreateItem(0)
With mMail
    .To = SendToMail
    .Subject = MailSubject
    .Body = mMailBody
    .Send
    Range("G" & r.Row) = TimeSerial(0, 5, 0)

    End With
timer ("G" & r.Row)
Next r

End Sub

Sub timer(SEL)

     interval = Now + TimeValue("00:00:01")

     If Range(SEL).Value = 0 Then Exit Sub

     Range(SEL) = Range(SEL) - TimeValue("00:00:01")

     Application.OnTime interval, "timer"

 End Sub
1
  • Application.OnTime interval, "timer" tienes que pasarle el argumento SEL cuando llames al procedimiento timer que tú mismo has codificado
    – Esei
    Commented el 17 ago. 2022 a las 19:45

0

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

Examina otras preguntas con la etiqueta o formula tu propia pregunta.