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 : 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
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
Partager