Bonjour à tous,
J'ai des scripts VBA qui gèrent l'arrivée des mails en fonction de leur expéditeur et de l'objet du message. Ces scripts ont simplement pour but d'enregistrer la pièce jointe dans un répertoire préalablement défini puis afficher un messageBox.
Mon problème est que aujourd'hui mes scripts n'agissent plus (comme si la sécurité des macros les avait bloqué) mais surtout il m'est impossible d'accéder à ma fenètre VBA dans le module outils/macro/VBA ou bien par le racourci Alt-F11).
Pensant que OUTLOCK était endommagé, j'ai effectué une réparation d'office... sans effet.
Je ne sais plus quoi faire ou tenter... si QQ a déjà eu ce problème ...merci
Vincent
Voici mon script (je ne pense pas que celà vient de là car il tourne depuis plusieurs mois sans Pb)


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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
 
Dim MonApp As Outlook.Application
Dim MonMail As Object
Dim MonNameSpace As Outlook.NameSpace
Dim MonDossier As Outlook.Folder
Dim MaPJ As Attachments
Dim Repertoire As String
Dim Dates As Date
 
Set MonApp = Outlook.Application
Set MonNameSpace = MonApp.GetNamespace("MAPI")
Set MonDossier = MonNameSpace.GetDefaultFolder(olFolderInbox)
Set MonMail = Application.Session.GetItemFromID(EntryIDCollection)
Set MaPJ = MonMail.Attachments
 
Repertoire = "c:\Applications\"
 
If MonMail.Subject Like "RE: ECRITURES COMPTABLES CLOTURES" Then
If MonMail.Attachments.Count > 0 Then
For i = 1 To MaPJ.Count
MaPJ(i).SaveAsFile Repertoire & "tag_comptaClot.txt"
Next i
MsgBox ("La saisie comptable des clotures de caisse dans GESTAPPLI a été dévérouillée. Merci")
 
End If
End If
If MonMail.Subject Like "STOCK BAGNERES" Then
If MonMail.Attachments.Count > 0 Then
For i = 1 To MaPJ.Count
MaPJ(i).SaveAsFile Repertoire & "STOCK_bagbig.txt"
Next i
 
End If
End If
If MonMail.Subject Like "STOCK VIC" Then
If MonMail.Attachments.Count > 0 Then
For i = 1 To MaPJ.Count
MaPJ(i).SaveAsFile Repertoire & "STOCK_vicbig.txt"
Next i
 
End If
End If
If MonMail.Subject Like "STOCK FEZENSAC" Then
If MonMail.Attachments.Count > 0 Then
For i = 1 To MaPJ.Count
MaPJ(i).SaveAsFile Repertoire & "STOCK_vicfez.txt"
Next i
 
End If
End If
If MonMail.Subject Like "RE: ECRITURES COMPTABLES TRANSFERTS" Then
If MonMail.Attachments.Count > 0 Then
For i = 1 To MaPJ.Count
MaPJ(i).SaveAsFile Repertoire & "tag_comptaTransf.txt"
Next i
MsgBox ("La saisie comptable des transferts dans GESTAPPLI a été dévérouillée. Merci")
 
End If
End If
If MonMail.Subject Like "RE: ECRITURES COMPTABLES ACHATS" Then
If MonMail.Attachments.Count > 0 Then
For i = 1 To MaPJ.Count
MaPJ(i).SaveAsFile Repertoire & "tag_comptaAchat.txt"
Next i
MsgBox ("La saisie comptable des Achats fournisseurs dans GESTAPPLI a été dévérouillée. Merci")
 
End If
End If
Set MonApp = Nothing
Set MonMail = Nothing
Set MaPJ = Nothing
 
End Sub