Erreur d'exécution -2147024891 (80070005)

[BernardBouree]

Bonjour

Je développe quelques codes pour VBA Outlook 2007.
Depuis quelques modifs j'obtiens l'erreur d'exécution citée en objet avec le texte " Vous ne disposez pas des autorisations nécessaires pour effectuer cette opération"

L'ennui c'est que j'obtiens cette erreur à des lignes aléatoires dans une fonction que je poste ci-après.

Merci de votre aide.

Bernard

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Function ChercherCompte(NomCompte As String) As Folder
 
    Dim MonOutApp As New Outlook.Application
    Dim MonOutExp As Outlook.Explorer
    Dim MonNameSpace As Outlook.NameSpace
    Dim Dossiers As Outlook.Folders
    Dim Dossier As Outlook.Folder
    Dim i As Integer
 
    'On Error Resume Next
 
    'Instancie les objets
    Set MonOutExp = MonOutApp.ActiveExplorer
    Set MonNameSpace = MonOutApp.GetNamespace("MAPI")
    Set Dossiers = MonNameSpace.Folders
    'Set ChercherCompte = Nothing
 
    For Each Dossier In Dossiers
        If Dossier.Name = NomCompte Then
            Set ChercherCompte = Dossier
            'Exit For
        Else
            'Set ChercherCompte = Nothing
        End If
    Next
 
    'Vide des objets pour libération de la mémoire
    Set MonOutApp = Nothing
    Set MonOutExp = Nothing
    Set MonNameSpace = Nothing
    Set Dossiers = Nothing
    Set Dossier = Nothing
End Function

[carden752]

Bonjour,

Quelles modifications ont été apportées?
Pour la libération des variables, il faut partir dans le sens inverse les derniers objets alloués sont les premiers libérés.

Peut-être une erreur lors de l'instanciation de la nouvelle application, essayez de le déclarer puis l'initialiser en 2 lignes.

Code :

1
2
Dim MonOutApp As Outlook.Application
set MonOutApp = New Outlook.Application