Discussion :

[aethangaia]

Bonjour à tous,

J'ai actuellement un code fonctionnel (notamment grâce à Oliv-) me permettant de convertir tout mail entrant (sauf exceptions dans le code) en tâche et de lancer un rappel s'il n'est pas lu/traité dans un délai de 5 minutes après sa réception.

Cependant, lorsque je réponds à un mail ou lorsque j'en créé un, lorsque je clique sur l'envoi du message, j'obtiens le message d'erreur (non bloquant puisque l'envoi se fait malgré tout en cliquant sur "Fin" ou "Débogage") suivant :



Ce message concerne la ligne 50 en rouge dans le code 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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Public WithEvents AM As MailItem


Private Sub Application_ItemLoad(ByVal Item As Object)

    If Item.Class = olMail Then
    
        Set AM = Item
        
    Else
    
        Set AM = Nothing
        
        Exit Sub
        
    End If
    
End Sub

Private Sub AM_Read()

If AM.IsMarkedAsTask Then

    If AM.UnRead = False And AM.FlagStatus = olFlagComplete Then

        Exit Sub

    Else

        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.UnRead = True
            AM.Save

        End If

    End If

End If
    
End Sub

Private Sub AM_Close(Cancel As Boolean)

If AM.IsMarkedAsTask Then

    If AM.FlagStatus = olFlagComplete Then

        Exit Sub

    Else

        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.UnRead = True
            AM.Save

        End If

    End If

End If

End Sub

Quelqu'un saurait-il comment résoudre cela et me permettre de garder ma macro effective pour les mails entrants uniquement et me permettre d'en envoyer sans message d'erreur ?

Merci d'avance pour votre temps et votre expertise.

Aëthan.

[Oliv-]

Bonjour,
Je n'ai pas réussi à reproduire ton problème, dans quel cas spécifique cela se produit'il ?

Tu peux toujours mettre au début de cette procédure une gestion d'erreur

Code :

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

 on error goto fin

et tu ajoutes

Code :

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

:fin

:juste avant le end su

[aethangaia]

Bonsoir Oliv-,

Merci pour ta réponse. Elle m'a tiré d'affaire

En réponse à ta question, le problème se produit à chaque fois que je créé/transfère/réponds à un mail.

Dorénavant avec le code

Code :

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

on error goto

ça fonctionne sans problème.

Dernier point, saurais-tu comment faire en sorte que lorsque je pointe un message avec la souris ou les flèches du clavier, s'il répond aux conditions de la macro, l'aperçu du volet de lecture se mette à jour avant



l'apparition de la message box ?



Merci pour tout Oliv-.

Aëthan

[aethangaia]

Bonjour,

J'ai solutionné mon problème de "rafraîchissement de l'affichage" du volet de lecture en déclenchant une messagebox YesNoCancel lorsque l'on clique sur un message non lu dans le fil de la boîte de réception. Le Yes ouvre le mail pour le traiter, le No le classe comme lu et tâche terminée et le Cancel le laisse en état non traité (non lu, tâche aujourd'hui et reminder alerte si toujours non lu après 5 minutes).

Discussion résolue.

Merci encore Oliv-, c'est grâce à des gens comme toi que des gens comme moi progressent.

Aëthan.