1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Permet de verifier qu'il s'agit bien d'un mail ouvert. S'il ne s'agit pas d'un mail alors la macro ne s'executera pas
If Not Item.Class = olMail Then Exit Sub
'Fonction VBA InStr() permet de tester si un texte contient une chaine de caracteres specifiee et si oui, elle permet de savoir ou cette chaine se trouve dans le texte.
If InStr(1, Item.Subject, "[") = 0 Then
'Ouverture d'une fenetre contenant les instructions et les codes de diffusion
Choix = InputBox("Pour rajouter un code de diffusion, entrez le numero correspondant puis valider, sinon cliquer sur la touche Annuler" & vbCr & vbCr & "1- ACTION REQUISE" & vbCr & "2- CONFIDENTIEL" & vbCr & "3- IMPORTANT" & vbCr & _
"4- LECTURE REQUISE" & vbCr & "5- PERSONNEL" & vbCr & "6- POUR INFORMATION" & vbCr & "7- R?PONSE REQUISE" & vbCr & "8- URGENT", " Voulez-vous ajouter un code de diffusion ?")
If Choix <> "" Then
'Apres choix du code de diffusion, integration devant l'objet du mail (Item.Subject)
Item.Subject = Choose(Choix, "[ACTION REQUISE]", "[CONFIDENTIEL]", "[IMPORTANT]", "[LECTURE REQUISE]", "[PERSONNEL]", "[POUR INFORMATION]", "[R?PONSE REQUISE]", "[URGENT]") & "-" & Item.Subject
End If
End If
End Sub |
Partager