Troller en évitant de se faire croissanter

Les croissants c'est bon et c'est encore meilleur quand les collègues les apportent le matin au travail.
Si comme moi, une session non-verouillée est souvent synonyme d'un envoi d'emails aux collègues (liste de diffusion interne), stipulant que les croissants seront apportés le lendemain avec amour, alors la technique suivante peut vous interessez.
Elle pourra vous permettre, à condition que vos collègues ne soient pas trop curieux, d'aller chercher un verre d'eau ou de vous assoupir sans risquer de se faire avoir, voir meme de pouvoir les troller simplement.

Pour ouvrir l'éditeur VisualBasique (oui les macros sont en VB, un bon language de *****) il faut appuyer sur les touche Alt+F11

alt

Voici la Macro, tout est dans les commentaires :

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'---------------------------------------------------------------------------------------------
' Procédure : Protection Anti-Croissantage
' Auteur    : Ari
' Site      : http://arishitz.net
' Détail    : Teste la présence d'une chaine de caractères dans le ' sujet du mail avant l'envoi
'---------------------------------------------------------------------------------------------
'
'Teste si c'est un Email
If Not Item.Class = olMail Then Exit Sub
'Déclaration de la variable monMail
Dim monMail As MailItem
'Instancie L'élément à la variable monMail
Set monMail = Item
'Teste si le sujet contient une chaine de caractères spécifiques
If InStr(monMail.Subject, "1337") = 0 Then
    'Message en cas de fail
    MsgBox "Fail, pas de croissants pour les n00bs !"
    'Annule l'envoi
    Cancel = True
Else
    'Si la chaine de caractère attendu est présente alors elle est ' supprimée
    monMail.Subject = Replace(monMail.Subject, "1337", "")
End If
End Sub

Lorsqu'un email est donc envoyé sans la chaine attendu (ici 1337) dans le champs objet une popup s'ouvre et l'envoi est avorté. Si la chaine est présente celle-ci est retirée avant envoi.

alt

Donc jusqu'ici tout fonctionne mais un message d'alerte apparait à chaque lancement d'Outlook demandant d'activer ou de désactiver les macros :

alt

Il devient donc facile pour un neophyte de relancer rapidement Outlook en désactivant les macros et de pouvoir envoyer des emails.

Pour éviter se message, une solution est de signer la macro avec un certificat numérique. Pour créer le certificat il faut utiliser le tool SELFCERT.EXE qui se trouve dans 'C:\Program Files\Microsoft Office\OfficeXX', XX étant la version d'Office utilisée.

alt

Ensuite il faut signer la macro dans Outlook avec le certificat numérique créé, Alt-F11 -> Outils -> Signature électonique...

alt

Pour finir il suffit de relancer Outlook et quand le message d'alerte apparait, cliquer sur Approuver tous les documents de cet éditeur

alt

Le message n'apparaitra maintenant plus au démarrage, vous pouvez faire une sieste mais faites attention quand même...

alt

Fap'ment,