Contrôle de pièces jointes Outlook

Version imprimable

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". :mouarf:

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 ;)

23/08/2012, 18h44
Dolphy35

Salut,

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

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

@++
11/09/2012, 14h14
pc75

Bonjour,

Un petit bémol (sans gravité) :

Quelqu'un m'envoie un message du style :

Citation:

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.
12/09/2012, 00h46
MinDBuSteR

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. :aie:

Pour ma part je préfère l'alerte préventive.
12/09/2012, 09h19
pc75
Re,

Citation:

Envoyé par MinDBuSteR

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. :aie:

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 :
Code:

1 2 Set mail = Item

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

19/09/2012, 00h22
MinDBuSteR

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

Merci pour tes améliorations ;). Ça me parait évident et nécessaire.

Re,

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

1 2 msg = mail.Body
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