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
Partager