Discussion :

[aethangaia]

Bonjour,

N'ayant pas trouvé de post sur ce sujet, je m'en remets à vous.

Je souhaite automatiser l'émission d'un rappel sonore pour les messages qui arrivent dans ma boîte de réception (Outlook 2007).

Ces messages arrivent dans l'état "non lu". Je souhaite dans un premier temps que le premier rappel sonore s'effectue 5 minutes après la réception d'un message si il n'a pas été lu et dans un deuxième temps que le rappel s'effectue toutes les 5 minutes tant que le message n'est pas lu. Par conséquent il faut que ce rappel s'arrête de lui même lorsque le message est enfin lu.

Ceci permet de ne pas "laisser passer à la trappe" un message qui nécessite une réponse ou un acquittement urgent.

Merci d'avance pour votre aide.

N'hésitez pas à poser vos questions si vous avez besoin d'informations complémentaires.

Aëthan

[aethangaia]

Bonjour à tous,

Après quelques essais, je suis parvenu à déclencher l'automatisation de création d'une tâche pour tous les messages entrants, mais je n'ai encore qu'une partie de la solution.

Les tâches restent "ouvertes" malgré le traitement des messages et je suis par conséquent contraint de les marquer manuellement comme terminées.

Je souhaite ajouter au code ci-dessous les conditions qui permettront de marquer automatiquement ces tâches comme terminées si un ou des messages sont traités.

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
Sub reminder(Item As Outlook.MailItem)
Dim objTI As Outlook.TaskItem
 
Set objTI = Application.CreateItem(olTaskItem)
 
    With objTI
 
        If Item.Subject = "Program for Tomorrow" Or Item.Subject = "Delivery Status Notification (Failure)" Or Item.Subject = "[GermanTote] ATG Racecalendar" Or Item.Subject = "Contrôle Montant Hubs" Or Item.Subject = "Returned mail: see transcript for details" Or Item.Subject Like "FRA HOLLA" Or Item.Subject Like "FRA DENMARK" Or Item.SenderEmailAddress = "anoevo@pmc-sa.com" Or Item.SenderName = "Administrateur ANO-EVO" Or Item.UnRead = False Then
 
        Exit Sub
 
        Else
 
            .Subject = Item.Subject
            .ReminderSet = True
            .ReminderSoundFile = "C:\Users\CPM\Music\Unreadmails.wav"
            .ReminderPlaySound = True
            .ReminderTime = Now + TimeSerial(0, 5, 0)
            .Save
 
        End If
 
    End With
 
End Sub

Merci pour votre aide.

Aëthan

[Oliv-]

Bonsoir
Il faudrait utiliser plutôt MailItem.MarkAsTask
Ce qui fait que lorsque tu marqueras ton mail termine cela va terminer la tâche

[aethangaia]

Bonjour Oliv-,

Merci pour l'info, c'est parfait.

Pour ceux intéressés, voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub reminder(Item As Outlook.MailItem)
 
            Item.MarkAsTask (olMarkToday)
            Item.ReminderSet = True
            Item.ReminderSoundFile = "C:\Users\CPM\Music\Unreadmails.wav"
            Item.ReminderPlaySound = True
            Item.ReminderTime = Now + TimeSerial(0, 5, 0)
            Item.Save
 
End Sub

Aëthan

[aethangaia]

Oliv-,

Saurais-tu si il est possible de "marquer le message comme terminé" dès que le message est ouvert ?

Merci d'avance.

Aëthan.

[Oliv-]

Avec une macro, voici un Base
http://www.developpez.net/forums/d15...l/#post8164193

il faut changer : : mailitem.FlagStatus =olFlagMarked

[aethangaia]

Oliv-

Merci infiniment. J'ai adapté le BASE à mon besoin et tout fonctionne comme je le souhaitais.

Tu es mon sauveur

Merci encore !

Et pour ceux que ça intéresse, dans THISOUTLOOKSESSION :

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
 
Public WithEvents AM As MailItem
 
Private Sub Application_ItemLoad(ByVal Item As Object)
 
' Vérifie que le formulaire est bien celui d'un email
 
    If Item.Class = olMail Then
 
        Set AM = Item
 
    Else
 
        Exit Sub
 
    End If
 
End Sub
 
 
 
Private Sub AM_Open(Cancel As Boolean)
 
AM.FlagStatus = olFlagComplete
AM.Save
 
End Sub

Aëthan

[aethangaia]

Arrgghh !!!

Encore un point !

Lorsque je souhaite créer un nouveau mail ou transférer ou répondre à un mail existant, j'obtiens le message d'erreur ci-dessous dans l'image.



Comment puis-je différencier un mail reçu nécessitant d'être marqué comme terminé une fois ouvert, d'un nouveau mail ?

Merci d'avance.

Aëthan

[Oliv-]

Salut,
Pour ma part j'aurais laissé manuel, le fait de marquer le mail terminé, parce que ce n'est pas parce qu'on ouvre le mail qu'on l'a traité !

Mais si tu persistes, il faut effectivement, tester plusieurs points :

• si le mail a une tache associée :.IsMarkedAsTask
• si il y a un sujet
• si il est envoyé:.Sent

tu peux aussi vérifier s'il le sujet répond à tes critères

Code :

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

 If Item.Subject = "Program for Tomorrow" Or Item.Subject = "Delivery Status Notification (Failure)" Or Item.Subject = "[GermanTote] ATG Racecalendar" Or Item.Subject = "Contrôle Montant Hubs" Or Item.Subject = "Returned mail: see transcript for details" Or Item.Subject Like "FRA HOLLA" Or Item.Subject Like "FRA DENMARK" Or Item.SenderEmailAddress = "anoevo@pmc-sa.com" Or Item.SenderName = "Administrateur ANO-EVO" Or Item.UnRead = False Then

[aethangaia]

Oliv-,

Merci pour tes propositions qui me rapprochent chaque fois un peu plus de LA solution. IsMarkedAsTask est exactement ce qu'il me fallait pour distinguer les mails reçus de ceux que je créé.

J'ai tenu compte de ton opinion et la partage. Ce n'est pas parce qu'on ouvre un mail qu'il est traité . Nous sommes plusieurs utilisateurs sur la même boîte mail et tout le monde n'aura pas forcément le "bon" réflexe de traiter les mails en temps et en heure. Aussi ai-je opté pour une solution intermédiaire via un message box qui s'ouvre à la fermeture d'un mail reçu et qui demande confirmation du traitement. CF ci-dessous.

Dans THISOUTLOOKSESSION :

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
 
Public WithEvents AM As MailItem
 
 
Private Sub Application_ItemLoad(ByVal Item As Object)
 
' Vérifie que le formulaire est bien celui d'un email
 
    If Item.Class = olMail Then
 
        Set AM = Item
 
    Else
 
        Exit Sub
 
    End If
 
End Sub
 
Private Sub AM_Close(Cancel As Boolean)
 
If AM.IsMarkedAsTask Then
 
    If MsgBox("Le mail peut-il être considéré comme traité et terminé (OUI) ou doit-il rester en cours pour un traitement ultérieur (NON) ?", vbYesNo, "Traitement du mail") = vbYes Then
 
        AM.UnRead = False        
        AM.FlagStatus = olFlagComplete
        AM.Save
 
    Else
 
        AM.Save
 
    End If
 
End If
 
End Sub

Cette fois je pense que la solution est la bonne et définitive. J'update ce fil de discussion en "Résolu".

Merci pour tout Oliv-

Aëthan.