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