Bonjour à tous,
Voilà c'est la loose, j'ai réussi à créer des scripts pour Outlook afin d'automatiser certains traitements à la réception de message mais j'ai maintenant un autre problème, lorsque je lock ma session, à mon retour, j'ai l'éditeur VB d'ouvert en fenêtre active. Je n'arrive pas à savoir pourquoi, je n'ai aucun point d'arrêt ou autre dans mon script :
Code :
- Sub TestScript(Item As Outlook.MailItem)
-
- Dim MailSubject As String
- MailSubject = "test"
-
- If Not InStr(1, Item.Subject, MailSubject, 1) = 0 Then
-
- Dim oResult As VbMsgBoxResult
- oResult = MsgBox("Un nouveau message est arrivé, voulez-vous le traiter ?", vbYesNo)
-
- If oResult = vbNo Then
- Exit Sub
- End If
-
- Dim InboxFolder As String, WorkingFolder As String, SaveDirectory As String
-
- InboxFolder = "Inbox"
- WorkingFolder = "Test"
- SaveDirectory = "C:\TEMP\"
-
- Dim oMailBox As Outlook.MAPIFolder
- Dim oInbox As Outlook.MAPIFolder
- Dim oWorking As Outlook.MAPIFolder
- Dim oMovedMail As Outlook.MailItem
-
- Set oMailBox = Application.GetNamespace("MAPI" ).Folders.GetFirst
- Set oInbox = oMailBox.Folders.Item(InboxFolder)
- Set oWorking = oInbox.Folders.Item(WorkingFolder)
- Set oMovedMail = Item.Move(oWorking)
-
- End If
- End Sub
|
Apparemment je ne suis pas le seul à avoir ce problème mais je n'ai aucune explication et encore moins de solution. Avez vous une idée ?
http://www.eggheadcafe.com/softwar [...] -pops.aspx
http://www.experts-exchange.com/So [...] 03227.html