Discussion :

[roms_7213]

Bonjour,

nouveau sur ce forum - j'espère que vous pourrez m'aider.

J'ai développé une base Access qui me sers notamment à envoyer des emails sur Outlook ou créer des tâches sur le calendrier.

L'outil fonctionnait parfaitement jusqu'à il y a quelques semaines et depuis je recois le message d'erreur suivant.

Je pense à un problème de référence mais toutes les référence outlook semblent bien présentes.
J'ai tenté de compacté la base, de réparer Office... sans succès.

Quelqu'un a-t-il déjà eu ce problème ?

Le code bloque sur la ligne : Set myNamespace = myOlApp.GetNamespace("MAPI")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
' CREE OBJET CALENDRIER OUTLOOK
Function PlanningCryoTool() As Outlook.Folder
    Dim utilisateur As Variant
    Dim Cie As Variant
    Dim myOlApp As New Outlook.Application
    Dim myNamespace As Outlook.NameSpace
    Dim myRecipient As Outlook.Recipient
'    utilisateur = DLookup("[User]", "User", "[IdAD]=""" & Environ("username") & """")
    Cie = Forms("MainForm4").Controls("Cocher878").Value
    Set myNamespace = myOlApp.GetNamespace("MAPI")
    Select Case Cie
'        Case "AP", "MJ", "OF"
        Case True
        Set myRecipient = myNamespace.CreateRecipient("Orders es")
        Case Else
        Set myRecipient = myNamespace.CreateRecipient("Orders be")
    End Select
    myRecipient.Resolve
    If myRecipient.Resolved Then Set PlanningCryoTool = myNamespace.GetSharedDefaultFolder(myRecipient, olFolderCalendar)
End Function

Merci d'avance à tous.

[hyperion13]

Salut
Et en passant par le Late binding ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim myOlApp As Object
set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")

[roms_7213]

Bonjour,

oui - j'avais déjà testé cette solution suite à mes recherches mais sans succès...

Merci quand même

[hyperion13]

re,
N'aurais-tu pas installé une récente MàJ du PAckOffice qui pourrait être la cause du problème?

[User]

Bonjour,

Cela n'a peut-être pas de rapport avec votre problème, mais je me pose des questions sur la libération de vos variables objet déclarées dans votre fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim myOlApp As New Outlook.Application

Ici vous créez au début de votre fonction un objet Outlook.Application, mais vous n'avez pas le moyen de libérer cette variable objet dans votre fonction.

Il faudrait créer cet objet à l'extérieur de cette fonction dans la procédure appelante avant l'appel de cette fonction, puis passer cet objet en argument de la fonction, enfin libérer cet variable à la fin de la procédure appelante, toujours à l'extérieur de la fonction.

Même chose pour la variable objet NameSpace.

Cdlt,