Visual Basic - error 424 en tiempo de ejecución: se requiere un objeto

Life is soft - evento anual de software empresarial

error 424 en tiempo de ejecución: se requiere un objeto

Publicado por alan (4 intervenciones) el 15/11/2017 22:31:20

Hola estimados todos:

Alguien que me pueda apoyar, tengo un problema, me sale el mensaje de "error 424 en tiempo de ejecución: se requiere un objeto", el código que quiero correr es el siguiente:

Sub crearTarea()

   Dim myApp As Outlook.Application

   Dim myTsk As TaskItem

   Set myApp = New Outlook.Application

   Set myTsk = olApp.CreateItem(olTaskItem)

   With myTsk

      .Subject = "Tarea de prueba"

      .Status = olTaskInProgress

      .Importance = olImportanceHigh

      .DueDate = DateValue("07/05/07")

      .Recipients.Add "occva@hotmail.com"

      .Save

      .Send

   End With

   Set myApp = Nothing

   Set myTsk = Nothing

End Sub

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 1

Val: 3.117

error 424 en tiempo de ejecución: se requiere un objeto

Publicado por Andres Leonardo (1799 intervenciones) el 15/11/2017 23:51:11

En la linea que te da el error , en realidad es que no existe el elemento que estas usando

indica cual te esta dando el errr.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

error 424 en tiempo de ejecución: se requiere un objeto

Publicado por alan (4 intervenciones) el 16/11/2017 00:19:16

Gracias por el tiempo, no me marca el error, te adjunto el archivo con el código.

Tareas.rar(14,3 KB)

Valora esta respuesta

Comentar

Pos: 2

Val: 1.259

error 424 en tiempo de ejecución: se requiere un objeto

Publicado por Antoni Masana (565 intervenciones) el 16/11/2017 08:00:45

Buenas Alan

Así a primera vista lo que veo es un error en la línea 5, defines en la línea 4 myApp y en la siguiente usas olApp

Sub crearTarea()

   Dim myApp As Outlook.Application

   Dim myTsk As TaskItem

   Set myApp = New Outlook.Application

   Set myTsk = olApp.CreateItem(olTaskItem)

   With myTsk

      .Subject = "Tarea de prueba"

      .Status = olTaskInProgress

      .Importance = olImportanceHigh

      .DueDate = DateValue("07/05/07")

      .Recipients.Add "occva@hotmail.com"

      .Save

      .Send

   End With

   Set myApp = Nothing

   Set myTsk = Nothing

End Sub

Saludos.
\\//_

Valora esta respuesta

Comentar

error 424 en tiempo de ejecución: se requiere un objeto

Publicado por alan (4 intervenciones) el 16/11/2017 15:27:39

Gracias Antoni, en lugar de olApp que debería poner?

Valora esta respuesta

Comentar

Pos: 2

Val: 1.259

error 424 en tiempo de ejecución: se requiere un objeto

Publicado por Antoni Masana (565 intervenciones) el 16/11/2017 21:45:05

Debería poner myApp

Sub crearTarea()

   Dim myApp As Outlook.Application

   Dim myTsk As TaskItem

   Set myApp = New Outlook.Application

'' Set myTsk = olApp.CreateItem(olTaskItem)    <--- Tiene un error

   Set myTsk = myApp.CreateItem(olTaskItem)   ' --- Esta es correcta

   With myTsk

      .Subject = "Tarea de prueba"

      .Status = olTaskInProgress

      .Importance = olImportanceHigh

      .DueDate = DateValue("07/05/07")

      .Recipients.Add "occva@hotmail.com"

      .Save

      .Send

   End With

   Set myApp = Nothing

   Set myTsk = Nothing

End Sub

Saludos.
\\//_

Valora esta respuesta

Comentar

error 424 en tiempo de ejecución: se requiere un objeto

Publicado por alan (4 intervenciones) el 21/11/2017 20:54:38

Te agradezco mucho, aun sigo con problemas ahora me dice "Error de automatización"

Valora esta respuesta

Comentar

Ayuda: Código en Visual Basic 6.0

TextBox con acentos