Discussion :

[Jason06000]

Hello,

C'est mon premier post ici, je suis totalement débutant en programmation etc.
J'aimerai assigner des taches à des personnes de mon boulot automatiquement, ca aucun problème j'ai réussis à me débrouiller.
Le problème c'est la boite de dialogue finale sur outlook.
Ci dessous mon code:

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
Sub CreerTacheOutlook()
 
    Dim appOutlook As Outlook.Application
    Dim objTache As Outlook.TaskItem
    Dim myDelegate As Outlook.Recipient
 
    ' Créer une instance de l'application Outlook
    Set appOutlook = New Outlook.Application
 
    ' Créer un nouvel objet TaskItem (tâche)
    Set objTache = appOutlook.CreateItem(3) ' 3 correspond à olTaskItem
    objTache.Assign
    Set myDelegate = objTache.Recipients.Add("NOM1")
    myDelegate.Resolve
    Set myDelegate = objTache.Recipients.Add("Nom 2")
    myDelegate.Resolve
 
 
    With objTache
        .Subject = "Tâche importante"
        .Body = "Description détaillée de la tâche." & vbCrLf & _
                "Ceci est une description détaillée ajoutée au corps de la tâche." & vbCrLf & _
                "Vous pouvez ajouter autant de détails que nécessaire ici."
        .StartDate = Date + TimeValue("10:00:00") ' Date et heure de début
        .DueDate = Date + 1 + TimeValue("17:00:00") ' Date et heure de fin
        .Importance = 2 ' 2 correspond à olImportanceHigh
        .ReminderSet = True ' Activer la notification de rappel
        .ReminderTime = .StartDate ' Temps de rappel (même que la date de début)
 
 
        ' Afficher la fenêtre de la tâche
        objTache.Display
 
        objTache.Send
 
    End With
 
End Sub

ci dessous le message que je souhaite gérer automatiquement



Merci d'avance!

Jason

[Nain porte koi]

Hello,

façon "gros cochon"

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
Sub CreerTacheOutlook()
 
    Dim appOutlook As Outlook.Application
    Dim objTache As Outlook.TaskItem
    Dim myDelegate As Outlook.Recipient
 
    ' Créer une instance de l'application Outlook
    Set appOutlook = New Outlook.Application
 
    ' Créer un nouvel objet TaskItem (tâche)
    Set objTache = appOutlook.CreateItem(3) ' 3 correspond à olTaskItem
    objTache.Assign
    Set myDelegate = objTache.Recipients.Add("NOM1")
    myDelegate.Resolve
    Set myDelegate = objTache.Recipients.Add("Nom 2")
    myDelegate.Resolve
 
 
    With objTache
        .Subject = "Tâche importante"
        .Body = "Description détaillée de la tâche." & vbCrLf & _
                "Ceci est une description détaillée ajoutée au corps de la tâche." & vbCrLf & _
                "Vous pouvez ajouter autant de détails que nécessaire ici."
        .StartDate = Date + TimeValue("10:00:00") ' Date et heure de début
        .DueDate = Date + 1 + TimeValue("17:00:00") ' Date et heure de fin
        .Importance = 2 ' 2 correspond à olImportanceHigh
        .ReminderSet = True ' Activer la notification de rappel
        .ReminderTime = .StartDate ' Temps de rappel (même que la date de début)
 
 
        ' Afficher la fenêtre de la tâche
        objTache.Display
 
SendKeys ("{ENTER}")

        objTache.Send
 
    End With
 
End Sub

(à tester)

[Jason06000]

Alors ca fonctionne, mais tu pourrais m'expliquer pourquoi il faut le mettre avant le send, et pas après?
J'avais essayé cette solution, mais en ajoutant SendKeys ("{ENTER}") après le .Send, car pour moi la fenêtre apparraissait après et non avant.

Merci encore!

EDIT: ah non ca marche pas j'ai parlé trop vite... j'avais fait des tests hier soir et je les ai pas enlevé ce matin

J'ai toujours l'erreur

[Nain porte koi]

Ca à fonctionné hier soir et pas ce matin ?
Quand vous dites "j'ai toujours l'erreur" c'est la boite de dialogue ou autre chose ?

Le sendkeys à un comportement assez aléatoire, en fait si quelque chose le perturbe ou vient s'afficher avant ce qu'on attend de lui ça déraille, d'où ma réponse "mode gros cochon"
En fait il faudrait être sur à 100% que c'est bien la boite de dialogue "Cette demande de tâche..." qui est affiché

Un paramètre supplémentaire existe avec le sendkeys : SendKeys ("{ENTER}", True)
voir ici pour plus d'explication https://learn.microsoft.com/fr-fr/of...keys-statement

Pourquoi avant et pas après : parce que une fois que la fenêtre est ouverte l'instruction suivante attend qu'elle soit fermée pour s'exécuter.

Une autre solution serait d'utiliser les API, je sais qu'il est possible de vérifier que c'est bien telle boite de dialogue qui est au premier plan et d'y envoyer des touches, mais je ne sais pas faire.