CreateObject("Outlook.Application") ne fonctionne plusRésolu

Question

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

isa911 · Accepted Answer

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

CreateObject("Outlook.Application") ne fonctionne plus

1 réponse

Votre réponse

Discussions similaires