[Macro office] Ouvertures intempestives du Visual Basic Editor

Marsh Posté le 05-02-2009 à 09:58:28

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

Marsh Posté le 05-02-2009 à 09:58:28

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *