problème boucle de répétition

bonjour, j'ai le code suivant en vb 2008 qui selectionne le premier message d'outlook, qui l'ouvre et qui l'efface. le problème c'est que ca marche si je le fait qu'une fois mais pas si je le fait plusieurs fois? que faut-il faire?
merci

Code:

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
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim x, y As Integer
 
        Dim compteur As Integer
        compteur = 1
        Do
            'Dim monprocess1 As New Process()
            'Process.Start("C:\Users\pascal\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\Microsoft Office Outlook 2007") ' Ouvre outlook
            '1
            Thread.Sleep(4500)
            retval = SetCursorPos(300, 165)
            Thread.Sleep(800)
            Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, x, y, 0, 0)
            Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, x, y, 0, 0)
            Thread.Sleep(1000)
            retval = SetCursorPos(1200, 334)
            Thread.Sleep(800)
            Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, x, y, 0, 0)
            Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, x, y, 0, 0)
            Thread.Sleep(200)
            retval = SetCursorPos(1075, 334)
            Thread.Sleep(800)
            Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, x, y, 0, 0)
            Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, x, y, 0, 0)
            Thread.Sleep(20000)
            retval = SetCursorPos(200, 1030)
            Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, x, y, 0, 0)
            Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, x, y, 0, 0)
            Thread.Sleep(800)
            retval = SetCursorPos(300, 165)
            Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, x, y, 0, 0)
            Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, x, y, 0, 0)
            Thread.Sleep(800)
            Refresh()
            SendKeys.Send("{DEL}")
            Refresh()
            'Thread.Sleep(800)
            'retval = SetCursorPos(1652, 15)
            'Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, x, y, 0, 0)
            'Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, x, y, 0, 0)
            'Thread.Sleep(800)
            'Thread.Sleep(800)
            'retval = SetCursorPos(1652, 15)
            'Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, x, y, 0, 0)
            'Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, x, y, 0, 0)
            'Thread.Sleep(800)
            compteur = compteur + 1
        Loop Until compteur = 4
 
 
 
 
 
 
 
 
 
 
 
        Application.Exit()

il y a applicatio.doenvents() mais je ne sais pas ou le mettre

Je te conseille de lire l'article suivant si tu veux manipuler Outlook par le code

http://morpheus.developpez.com/vsto2/#LVI-B

si c'est fait pour etre utilisé une fois, autant faire une macro sous outlook ca ira plus vite

si c'est fait pour etre utilisé plusieurs fois, ce code est étonnant, suffit que la fenetre ne soit pas au bon endroit et ton code ne marche plus ...

Le MyBase.Load ne s'execute qu'une seule et unique fois à la creation de la form.

et il te faut 6 lignes pour faire une boucle alors que 2 suffisent
Code:

1 2 3 4 For compteur As Integer = 1 To 4 ' traitement Next