Discussion :

[MinDBuSteR]

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 :

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

[Dolphy35]

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

@++

[pc75]

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.

[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.

Pour ma part je préfère l'alerte préventive.

[pc75]

Re,

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 :

Code :

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

1
2
 
Set mail = Item

[pc75]

re,

J'ai modifié le code comme ça :

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

[MinDBuSteR]

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.

[pc75]

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 :

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

1
2
 
msg = mail.Body

par

Code :

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

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