Test de la présence d'une chaîne pour l'Objet du message
3 réponses
Alain
Salut à tous.
Un ami envoi régulièrement des messages en oubliant d'encoder une chaîne
pour l'objet du message.
Est-il possible de tester la présence de cette chaîne et d'afficher un
message d'erreur si elle n'est pas présente ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Geo
Bonjour A.C.
[ réponse faite sur news://msnews.microsoft.com/microsoft.public.fr.outlook ] Salut à tous.
Un ami envoi régulièrement des messages en oubliant d'encoder une chaîne pour l'objet du message. Est-il possible de tester la présence de cette chaîne et d'afficher un message d'erreur si elle n'est pas présente ?
Mettez ce code dans ThisOutlookSession, aucun message ne partira si l'objet ne comporte pas au moins 5 caractères. Private Sub Application_ItemSend(ByVal Item As Object, _ Cancel As Boolean) If Len(Item.Subject) < 5 Then MsgBox " Compléter l'objet" Cancel = True End If End Sub
-- A+
Bonjour A.C.
[ réponse faite sur
news://msnews.microsoft.com/microsoft.public.fr.outlook ]
Salut à tous.
Un ami envoi régulièrement des messages en oubliant d'encoder une chaîne pour l'objet
du message.
Est-il possible de tester la présence de cette chaîne et d'afficher un message d'erreur
si elle n'est pas présente ?
Mettez ce code dans ThisOutlookSession, aucun message ne partira si
l'objet ne comporte pas au moins 5 caractères.
Private Sub Application_ItemSend(ByVal Item As Object, _
Cancel As Boolean)
If Len(Item.Subject) < 5 Then
MsgBox " Compléter l'objet"
Cancel = True
End If
End Sub
[ réponse faite sur news://msnews.microsoft.com/microsoft.public.fr.outlook ] Salut à tous.
Un ami envoi régulièrement des messages en oubliant d'encoder une chaîne pour l'objet du message. Est-il possible de tester la présence de cette chaîne et d'afficher un message d'erreur si elle n'est pas présente ?
Mettez ce code dans ThisOutlookSession, aucun message ne partira si l'objet ne comporte pas au moins 5 caractères. Private Sub Application_ItemSend(ByVal Item As Object, _ Cancel As Boolean) If Len(Item.Subject) < 5 Then MsgBox " Compléter l'objet" Cancel = True End If End Sub
-- A+
Alain
Merci Geo; ça marche bien :)
"Geo" a écrit dans le message de news:
Bonjour A.C.
[ réponse faite sur news://msnews.microsoft.com/microsoft.public.fr.outlook ] Salut à tous.
Un ami envoi régulièrement des messages en oubliant d'encoder une chaîne pour l'objet du message. Est-il possible de tester la présence de cette chaîne et d'afficher un message d'erreur si elle n'est pas présente ?
Mettez ce code dans ThisOutlookSession, aucun message ne partira si l'objet ne comporte pas au moins 5 caractères. Private Sub Application_ItemSend(ByVal Item As Object, _ Cancel As Boolean) If Len(Item.Subject) < 5 Then MsgBox " Compléter l'objet" Cancel = True End If End Sub
-- A+
Merci Geo; ça marche bien :)
"Geo" <Geo@sans.pub> a écrit dans le message de news:
mn.ba857d9afaa61fa0.41568@sans.pub...
Bonjour A.C.
[ réponse faite sur
news://msnews.microsoft.com/microsoft.public.fr.outlook ] Salut à tous.
Un ami envoi régulièrement des messages en oubliant d'encoder une chaîne
pour l'objet du message.
Est-il possible de tester la présence de cette chaîne et d'afficher un
message d'erreur si elle n'est pas présente ?
Mettez ce code dans ThisOutlookSession, aucun message ne partira si
l'objet ne comporte pas au moins 5 caractères.
Private Sub Application_ItemSend(ByVal Item As Object, _
Cancel As Boolean)
If Len(Item.Subject) < 5 Then
MsgBox " Compléter l'objet"
Cancel = True
End If
End Sub
[ réponse faite sur news://msnews.microsoft.com/microsoft.public.fr.outlook ] Salut à tous.
Un ami envoi régulièrement des messages en oubliant d'encoder une chaîne pour l'objet du message. Est-il possible de tester la présence de cette chaîne et d'afficher un message d'erreur si elle n'est pas présente ?
Mettez ce code dans ThisOutlookSession, aucun message ne partira si l'objet ne comporte pas au moins 5 caractères. Private Sub Application_ItemSend(ByVal Item As Object, _ Cancel As Boolean) If Len(Item.Subject) < 5 Then MsgBox " Compléter l'objet" Cancel = True End If End Sub
-- A+
Geo
Bonjour
Merci Geo; ça marche bien :)
Merci pour le retour. Du coup je l'ai conservé sur mon Outlook et c'est bien pratique.
-- A+
Bonjour
Merci Geo; ça marche bien :)
Merci pour le retour.
Du coup je l'ai conservé sur mon Outlook et c'est bien pratique.
