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

Life is soft - evento anual de software empresarial
   
Vista:

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

Publicado por alan occva@hotmail.com (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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo

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

Publicado por Andres Leonardo (1164 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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana

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

Publicado por Antoni Masana (282 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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana

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

Publicado por Antoni Masana (282 intervenciones) el 16/11/2017 21:45:05
Debería poner myApp

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad