CreateObject("Outlook.Application") ne fonctionne plus [Résolu]

isa911 63 Messages postés mercredi 28 février 2001Date d'inscription 25 novembre 2010 Dernière intervention - 29 oct. 2009 à 09:41 - Dernière réponse : isa911 63 Messages postés mercredi 28 février 2001Date d'inscription 25 novembre 2010 Dernière intervention
- 29 oct. 2009 à 11:05
Bonjour,

J'ai une fonction développée (ci dessous) dans une base de donnée à la base en Access 97.
Je l'ai faite évoluée il y a quelques années en Access 2003 en gardant le reste d'Office en 97 avec un environnement Win2000.
Je viens de changer d'ordinateur, ma base est toujours sur Access 2003 (SP3) mais Office est en 2007 et mon environnement est du Win XP SP3.
Et ma fonction bloque sur "Set Outlook = CreateObject("Outlook.Application")", err 429 " Un composant activeX ne peut pas creer d'objet".
La reference Office 12 est bien active.
Et sur un poste en Access 2003 de base et XP SP2, tout fonctionne ....
Comment revenir en arriere des services pack Access et Windows ou comment resoudre mon probleme sans en arriver la ???....


Function Outlook_LOGIN() As Boolean
Module1.NameFonc = "Outlook_LOGIN"
Dim MAILBOX_STATE, Folder
On Error GoTo Outlook_Login_Err
Set Outlook = GetObject(, "Outlook.Application")
If Outlook Is Nothing Then
recup_err:
Set Outlook = CreateObject("Outlook.Application")
'Set Outlook = Application
Set MAPI = Outlook.GetNamespace("MAPI")
MAILBOX_STATE = 200
Set Folder = MAPI.GetDefaultFolder (6)
Folder.Display
End If

Exit Function
Outlook_Login_Err:
If err.Number <> 0 Then
Module1.NameFonc = "Outlook_LOGIN"
If err.Number = 429 Then
GoTo recup_err
Else
Module1.Recup_Erreurs
End If
Exit Function
End If
End Function



Isa911
Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
isa911 63 Messages postés mercredi 28 février 2001Date d'inscription 25 novembre 2010 Dernière intervention - 29 oct. 2009 à 11:05
3
Merci
Je viens d'installer le dernier service pack (2)d'Office 2007, et ca fonctionne !!!

http://www.microsoft.com/DOWNLOADS/details.aspx?familyid=B444BF18-79EA-46C6-8A81-9DB49B4AB6E5&displaylang=fr

Isa911

Merci isa911 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 121 internautes ce mois-ci

Commenter la réponse de isa911

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.