Erreur "object library invalid etc"

**Wanaka** · 04/11/2013, 08h17

Bonjour,

J'ai récupéré sur Developpez le code ci-dessous me demandant à chaque envoie de mail de déplacer le mail envoyé dans un dossier de rangement.
Ca fonctionnait très bien sous Outlook 2003, mais je viens de passer sous 2010 et j'ai le message d'erreur suivant:
"Object library invalid or contains references to object definitions that could not be found"

Quelqu'in peut me dire si c'est juste une question de référence à activer, et si oui laquelle, car je n'ai aucun indice pour l'instant...

Merci d'avance,

Voici le code:
PS: l'erreur semble se produire sur le Public de la première ligne...

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
34
35
36
Public WithEvents maBoiteEnvoi As Outlook.Items
Private Sub Application_Startup()
Set maBoiteEnvoi = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderSentMail).Items
End Sub
Private Sub maBoiteEnvoi_ItemAdd(ByVal Item As Object)
Dim oDossier As MAPIFolder
Set oNS = Application.GetNamespace("MAPI")
Set oDossier = Application.GetNamespace("MAPI").PickFolder
If Not oDossier Is Nothing Then
Item.Move oDossier
End If
Set oDossier = Nothing
End Sub
 
 
 
 
Public Sub ErreurAdresse()
Dim oMail As Outlook.MailItem
Dim oFSO
Dim oFS
If Application.ActiveExplorer.Selection.Count Then
If TypeOf Application.ActiveExplorer.Selection(1) Is Outlook.MailItem Then
Set oMail = Application.ActiveExplorer.Selection(1).Reply
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
Set oFS = oFSO.OpenTextFile("C:\Users\Brunel\AppData\Roaming\Microsoft\Templates\Traitement des calendriers ## Erreur d'adresse ##.htm")
 
stext = oFS.ReadAll
oMail.BodyFormat = olFormatHTML
oMail.HTMLBody = stext & vbCr & oMail.HTMLBody
oMail.Display
End If
End If
End Sub