Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Error Automatizacion al Crear cita en Outlook desde Access

118 views
Skip to first unread message

Toni

unread,
Nov 19, 2009, 12:55:01 PM11/19/09
to
Estoy usando Access 2003 y Outlook 2003 y Windows Vista. Estoy intentando
crear una cita desde Access y al crear el objeto, me da el siguiente error de
automatizacion:

Error -2147319779 (8002801d)
error de automatizacion
la biblioteca de objetos no esta registrada

la biblioteca "Microsoft Outlook 11.0 Object Library" y la "Ole Automation"
estan marcadas en las referencias. No se donde puede estar el error. O cómo
volver a catalogar la libreria (he usado regsvr32
c:\windows\system32\stdole2.tlb y me da un error). Que otras cosas se pueden
probar?

Gracias a tod@s.

José Mª Fueyo

unread,
Nov 20, 2009, 5:45:48 AM11/20/09
to
Hola
¿Podrías poner el código que usas? en un princpio, con establecer la
referencia a la biblioteca de Outlook bastaría.

Salu2
--
José Mª Fueyo
[MS MVP Access]

Toni

unread,
Nov 20, 2009, 6:43:02 AM11/20/09
to
El código que uso es el siguiente:

Dim myOlApp As Outlook.Application
Dim myApptItem As AppointmentItem
Dim myRecurrPatt As RecurrencePattern

Set myOlApp = New Outlook.Application
Set myApptItem = myOlApp.CreateItem(olAppointmentItem)

y el error se produce al inentar ejecutar el primer Set (al crear el New
Outlook.Application)

"José Mª Fueyo" wrote:

> .
>

Juan Cots

unread,
Nov 21, 2009, 3:29:29 AM11/21/09
to
Como te dice Jose Mª, en una ventana de VBA ves a
Herramientas...Referencias...y busca una que se llama Microsoft
Outlook 11.0 Object Library, la activas y debería resolver tu
problema.

Un saludo

Visita mi blog
http://accessjuancots.blogspot.com/


Toni

unread,
Nov 21, 2009, 10:44:01 AM11/21/09
to
gracias por tu ayuda, pero Jose Mª no dice nada de esto y ya le mande la
respuesta, de todas formas si lees el mensaje original, veras que reflejo que
dicha biblioteca ya esta referenciada y aun asi sigo teniendo el problema

muchas gracias de todas formas

"Juan Cots" wrote:

> .
>

Juan Cots

unread,
Nov 21, 2009, 12:20:07 PM11/21/09
to
Vale...prueba así:

Dim myOlApp As Object
Dim myApptItem As Object
Dim myRecurrPatt As Object
Set myOlApp = CreateObject("Outlook.Application")
Set myApptItem = myOlApp.CreateItem(olAppointmentItem)

También puedes ver este ejemplo:

http://accessjuancots.blogspot.com/2008/10/automatizacin-con-outlook.html

Toni

unread,
Nov 22, 2009, 9:42:01 AM11/22/09
to
gracias por tu ayuda. Esto ya lo habia probado debido a distintas
informaciones que he ido revisando en internet y tampoco ha funcionado. He
intentado reparar la instalacion de Microsoft office y tampoco. He intentado
volver a registrar las biblioteca .olb y .tlb y alguna .dll que he visto que
estaban relacionadas pero tampoco funciona. Ya no se donde incidir. Lo que si
se es que el codigo no es porque esta misma aplicacion funciona en otras
computadoras sin problema. El problema reside en mi ordenador, pero no se
donde ni como solucionarlo.

Gracias de todas formas.

"Juan Cots" wrote:

> .
>

0 new messages