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 : 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
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()