Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 8 sur 8
  1. #1
    Membre éclairé
    Homme Profil pro
    Responsable DSI interne
    Inscrit en
    juin 2011
    Messages
    197
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 26
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Responsable DSI interne
    Secteur : Tourisme - Loisirs

    Informations forums :
    Inscription : juin 2011
    Messages : 197
    Points : 314
    Points
    314

    Par défaut Contrôle de pièces jointes Outlook

    Bonjour à tous,

    On connaît tous le problème d'envoyer un mail et d'en oublier la pièce jointe qui allait avec et de le renvoyer avec comme sujet : "C'est mieux avec".

    Le but ici est de vous montrer une technique pour limiter cet oubli grâce à Outlook (et un peu de VBA).

    Concrètement, on va regarder s'il existe une pièce jointe lors de l'envoi du mail, et vérifier si le corps du message contient des mots clés du genre : "PJ", "joint"....

    Si vous avez une signature avec une image (en local) lors de l'envoie celle ci comptera comme une pièce jointe, il faudra donc ne pas la prendre en considération.

    Voici ce que ça donnerais :

    Code :
    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
    Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
     
    '***************************************************************************************
    ' Auteur      : MinDBuSteR
    ' Descriptif  : Test si une pièce jointe est présente avant envoi
    '***************************************************************************************
     
         Dim mail As MailItem
         Dim objAttachment As Attachments
         Dim msg As String
         Dim nbre_pj As Integer
         If Item.Class = olMail Then
            Set mail = Item
            Set objAttachment = Item.Attachments ' Récupération de la collection des pièces jointes
            nbre_pj = objAttachment.Count ' Calcul du nombre de pièces jointes
            If (nbre_pj = 1) Then ' ATTENTION à paramétrer en fonction de la signature qui compte pour une pièce jointe
                 msg = mail.Body
                 'Liste des mots recherchés
                 If(InStr(1, msg, "PJ", vbTextCompare) Or _
    	     InStr(1, msg, "jointes", vbTextCompare) Or _
                 InStr(1, msg, "joint", vbTextCompare) Or _
                 InStr(1, msg, "jointe", vbTextCompare) Or _
                 InStr(1, msg, "joints", vbTextCompare)) Then
                    If (MsgBox("Il semblerait que vous n'ayez ajouté aucune pièce jointe. Voulez-vous quand même envoyer ce message ?", vbYesNo + vbExclamation, "Attention") = vbNo) Then
                        Cancel = True
                        Exit Sub
                    End If
                End If           
            End If
       End If
    End Sub
    Bien sûr les mots clés restent personnalisables à souhaits
    "Beatus qui prodest quibus potest"

  2. #2
    Rédacteur/Modérateur
    Avatar de Dolphy35
    Homme Profil pro Morgan BILLY
    couteau Suisse
    Inscrit en
    octobre 2004
    Messages
    4 378
    Détails du profil
    Informations personnelles :
    Nom : Homme Morgan BILLY
    Âge : 35
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : couteau Suisse
    Secteur : Industrie

    Informations forums :
    Inscription : octobre 2004
    Messages : 4 378
    Points : 11 573
    Points
    11 573

    Par défaut

    Salut,

    Bien joué , une petite astuce sympa et simple à mettre en place.

    Et qui peut dire : je n'oublie jamais la pièce jointe dans mes mails

    @++

  3. #3
    Expert Confirmé Avatar de pc75
    Profil pro
    Inscrit en
    septembre 2004
    Messages
    3 380
    Détails du profil
    Informations personnelles :
    Âge : 58
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : septembre 2004
    Messages : 3 380
    Points : 3 564
    Points
    3 564

    Par défaut

    Bonjour,

    Un petit bémol (sans gravité) :

    Quelqu'un m'envoie un message du style :
    Comme convenu, je te joints les documents.....
    Si je réponds à son message pour lui dire merci, je reçois le message d'avertissement.
    Je ne vois pas comment éviter ça.
    Par principe, je ne réponds pas aux messages URGENT.
    Il n'y a pas de choses urgentes, il n'y a que des choses en retard. (un inconnu)
    Pas de questions techniques en MP.

  4. #4
    Membre éclairé
    Homme Profil pro
    Responsable DSI interne
    Inscrit en
    juin 2011
    Messages
    197
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 26
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Responsable DSI interne
    Secteur : Tourisme - Loisirs

    Informations forums :
    Inscription : juin 2011
    Messages : 197
    Points : 314
    Points
    314

    Par défaut

    Tu peu supprimer l'alerte si tu as un RE : dans le sujet.
    Mais pour le coup si tu as une pièce jointe dans ta réponse que tu as oubliée elle passera à la trappe.

    Pour ma part je préfère l'alerte préventive.
    "Beatus qui prodest quibus potest"

  5. #5
    Expert Confirmé Avatar de pc75
    Profil pro
    Inscrit en
    septembre 2004
    Messages
    3 380
    Détails du profil
    Informations personnelles :
    Âge : 58
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : septembre 2004
    Messages : 3 380
    Points : 3 564
    Points
    3 564

    Par défaut

    Re,
    Citation Envoyé par MinDBuSteR Voir le message
    Tu peu supprimer l'alerte si tu as un RE : dans le sujet.
    Mais pour le coup si tu as une pièce jointe dans ta réponse que tu as oubliée elle passera à la trappe.

    Pour ma part je préfère l'alerte préventive.
    Oui, c'est sur, et puis un clic ça ne coute pas cher.
    Par contre, existe-t-il une propriété de l'objet item, reçu en paramètre de la sub, qui indiquerait le type ?
    Parce que j'ai reçu un avis de réunion que j'ai acceptée et quand j'ai cliqué sur "envoyer la réponse maintenant", le programme a planté sur :
    Par principe, je ne réponds pas aux messages URGENT.
    Il n'y a pas de choses urgentes, il n'y a que des choses en retard. (un inconnu)
    Pas de questions techniques en MP.

  6. #6
    Expert Confirmé Avatar de pc75
    Profil pro
    Inscrit en
    septembre 2004
    Messages
    3 380
    Détails du profil
    Informations personnelles :
    Âge : 58
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : septembre 2004
    Messages : 3 380
    Points : 3 564
    Points
    3 564

    Par défaut

    re,

    J'ai modifié le code comme ça :
    Code :
    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
    Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    '    Call CheckItemSend(Item, Cancel)
        Dim mail As MailItem
        Dim objAttachment As Attachments
        Dim msg As String
        Dim nbre_pj As Integer
        If Item.Class = olMail Then
            Set mail = Item
            Set objAttachment = Item.Attachments ' Récupération des pièces jointes
            nbre_pj = objAttachment.Count ' Calcul du nombre de pièces jointes
            If (nbre_pj = 0) Then ' ATTENTION A PARAMETRER EN FONCTION DE LA SIGNATURE QUI OCCUPE 1 PIECE JOINTE
                msg = mail.Body
                 'Liste des mots recherchés
                If (InStr(1, msg, "PJ", vbTextCompare) Or _
                    InStr(1, msg, "jointes", vbTextCompare) Or _
                    InStr(1, msg, "joint", vbTextCompare) Or _
                    InStr(1, msg, "jointe", vbTextCompare) Or _
                    InStr(1, msg, "joints", vbTextCompare)) Then
                    If (MsgBox("Il semblerait que vous n'ayez ajouté aucune pièce jointe. Voulez-vous quand même envoyer ce message ?", vbYesNo + vbExclamation, "Attention") = vbNo) Then
                        Cancel = True
                        Exit Sub
                    End If
                End If
            End If
        End If
    End Sub
    J'ai galéré pour trouver les valeurs des constantes d'outlook car dans la fenêtre de debug, ? Item.Class renvoie 56 qui correspond, dans mon cas à : olMeetingResponsePositive.
    Donc si ça peut servir, la liste constantes => http://msdn.microsoft.com/en-us/libr...ice.11%29.aspx
    Par principe, je ne réponds pas aux messages URGENT.
    Il n'y a pas de choses urgentes, il n'y a que des choses en retard. (un inconnu)
    Pas de questions techniques en MP.

  7. #7
    Membre éclairé
    Homme Profil pro
    Responsable DSI interne
    Inscrit en
    juin 2011
    Messages
    197
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 26
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Responsable DSI interne
    Secteur : Tourisme - Loisirs

    Informations forums :
    Inscription : juin 2011
    Messages : 197
    Points : 314
    Points
    314

    Par défaut

    J'aurais pu te répondre plus tôt pour t'éviter de galérer .

    Merci pour tes améliorations . Ça me parait évident et nécessaire.
    "Beatus qui prodest quibus potest"

  8. #8
    Expert Confirmé Avatar de pc75
    Profil pro
    Inscrit en
    septembre 2004
    Messages
    3 380
    Détails du profil
    Informations personnelles :
    Âge : 58
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : septembre 2004
    Messages : 3 380
    Points : 3 564
    Points
    3 564

    Par défaut

    Re,

    Pour éviter d'avoir le message si l'on répond à quelqu'un qui a joint quelque chose, ne pourrait-on pas remplacer

    par

    Code :
    1
    2
    3
    4
    5
    6
    7
     
    FinMessage = InStr(mail.Body, "De*: ") - 1
    If FinMessage > 0 And Left(mail.Subject, 3) = "RE:" Then
       msg = Left(mail.Body, FinMessage)
    Else
       msg = mail.Body
    End If
    Par principe, je ne réponds pas aux messages URGENT.
    Il n'y a pas de choses urgentes, il n'y a que des choses en retard. (un inconnu)
    Pas de questions techniques en MP.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •