Discussion :

[GroFlo]

Bonjour,

Afin d'avoir un plugin d'alerte d'oubli de PJ sur OL2016, j'ai trouvé puis adapté le bout de code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    If InStr(1, Item.Body, "PJ", vbTextCompare) > 0 Or InStr(1, Item.Body, "joint", vbTextCompare) Then
        If Item.Attachments.Count = 0 Then
            answer = MsgBox("Pas de PJ, envoyer quand même*?", vbYesNo)
            If answer = vbNo Then Cancel = True
        End If
     End If
End Sub

Cela a très bien fonctionné quelques temps, mais à présent, plus du tout. Lorsque j'envoie des messages avec les mots-clés, plus aucune alerte.
Cela dit, j'ai modifié des options d'Outlook pour que l'envoi d'un message ne le fasse pas partir immédiatement, mais le place en boite d'envoi, et que je décide quand l'envoyer manuellement (par exemple en faisant F9). Je ne sais plus si j'ai modifié ça avant ou après que le code ne fonctionne pas.
Néanmoins, je suppose que ça ne devrait pas influer sur le code.

Je précise que ce code est toujours présent et bien dans le ThisOutlookSession.

Quelqu'un aurait-il une idée de pourquoi cela ne fonctionne plus ?

Merci par avance.

[Oliv-]

Bonjour,
Est ce que les Macro sont bien activées ?

[GroFlo]

Bonjour,
Est ce que les Macro sont bien activées ?

Merci pour la réponse rapide.
Oui elles le sont. J'ai de toute façon essayé les différents choix pour être certain (notif pour les vérifiées, notif pour toutes, et accepter toutes les macros quoi qu'il arrive), ça ne fait rien. D'autant qu'entre le moment où ça fonctionnait et maintenant, je n'ai pas touché aux autorisations.

[Oliv-]

Supprime la macro

Puis dans le menu Déroulant Objet de ThisOutlookSession (juste au dessus du code, où c'est noté "général")
tu choisi "application"
et dans le menu de droite ItemSend

Remet à l’intérieur

Code :

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

1
2
3
4
5
6
 If InStr(1, Item.Body, "PJ", vbTextCompare) > 0 Or InStr(1, Item.Body, "joint", vbTextCompare) Then
        If Item.Attachments.Count = 0 Then
            answer = MsgBox("Pas de PJ, envoyer quand même*?", vbYesNo)
            If answer = vbNo Then Cancel = True
        End If
     End If

[GroFlo]

Merci, mais ça n'a rien changé…

[Oliv-]

Bonjour,

Dans ThisOutlookSession, met ce code qui doit se déclencher quand tu ouvres Outlook

Code :

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

1
2
3
4
Private Sub Application_Startup()
  Msgbox "Bonjour" & vbcr & Application.Session.CurrentUser.Name
 
    End Sub

Une fois fait tu mets ton curseur dedans et tu appuies sur F5
Si ça fontionne tu fermes Outlook en enregistrant les macros et tu réouvres.
Le message doit s'afficher.

[GroFlo]

En fait, aujourd'hui, ça a eu l'air de refonctionner ! Je ne comprends pas trop pourquoi, mais j'ai fait plusieurs tests et à présent c'est bon.

Je marque en résolu donc, même si je ne sais pas pourquoi, mais merci beaucoup pour ces réponses !