Discussion :

[pascb423]

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

[pascb423]

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

[matdur]

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

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

[Pol63]

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 ...

[Danyel]

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

[Pol63]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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