[Ayuda] Outlook.Application no funciona
Publicado por Edson (40 intervenciones) el 07/01/2017 04:43:23
Buen día amigos,
Dejen les comento mi situación:
Resulta que tengo un formulario en el que necesito programar citas con el Outlook. Alguien me ayudo con un codigo para crear dichas citas en el programa antes mencionado, sin embargo en la base de datos que el me mando el código funciona a la perfección, pero cuando trato de hacerlo en mi BD (Trabajo con Access 2013) me aparecen varios problemas. (Adjunto base de datos con el exportador de citas de outlook que me mandaron y que si me funciona, pero cuando llevo el codigo a mi base de datos no funciona y de hecho, el programa no me permite declarar la variable "Outlook.Application")
En resumen, la parte del código que me genera el problema es la siguiente:
Al tratar de probar este procedimiento me aparece el siguiente cuadro de error:

Ahora bien, ese no es la unica manera de conseguir lo que quiero que parece existir, tambien esta este otro codigo:
y me aparece el siguiente cuadro de mensaje:

Espero puedan ayudarme con este problema. De antemano, muchas gracias por su tiempo.
Dejen les comento mi situación:
Resulta que tengo un formulario en el que necesito programar citas con el Outlook. Alguien me ayudo con un codigo para crear dichas citas en el programa antes mencionado, sin embargo en la base de datos que el me mando el código funciona a la perfección, pero cuando trato de hacerlo en mi BD (Trabajo con Access 2013) me aparecen varios problemas. (Adjunto base de datos con el exportador de citas de outlook que me mandaron y que si me funciona, pero cuando llevo el codigo a mi base de datos no funciona y de hecho, el programa no me permite declarar la variable "Outlook.Application")
En resumen, la parte del código que me genera el problema es la siguiente:
1
2
3
4
5
Sub probando_referencia_bis()
Dim outlookApp As Object
Set outlookApp = CreateObject(“Outlook.Application”) 'El error me sombrea la parte que dice "Outlook.Application"
MsgBox outlookApp.Name 'No dar importancia a este MsgBox
End Sub
Al tratar de probar este procedimiento me aparece el siguiente cuadro de error:
Ahora bien, ese no es la unica manera de conseguir lo que quiero que parece existir, tambien esta este otro codigo:
1
2
3
4
5
Sub probando_referencia()
Dim outlookApp As Outlook.Application 'El error me sombre la declaracion de la variable como aplicacion de Outlook
Set outlookApp = New Outlook.Application
MsgBox outlookApp.Name
End Sub
y me aparece el siguiente cuadro de mensaje:
Espero puedan ayudarme con este problema. De antemano, muchas gracias por su tiempo.
- Exportar-Citas-Outlook.zip(151,6 KB)
Valora esta pregunta


0