Helper-Formation entraide

Bonjour a tous/tes,
Ric025 ayant ouvert un sujet dans le Bar du Forum sur HF (https://helper-formation.fr/viewtopic.php?p=186142#p186112 pour ceux qui ont l'accès), relatif a la possibilité d'autoriser l'envoi de mail avec un mot de passe depuis Outlook (Office), ou si vous préférez d'interdire a un quidam quelconque ayant accès physiquement a son PC d'utiliser sa messagerie pour adresser des e-mails a sa place, je lui ai concocté un bout de code en Visual Basic pour Application (VBA) ainsi qu'un tutoriel pour la mise en œuvre.
Supposant que ce petit travail pourrait être utile a d'autres, je vous en mets copie ci-dessous.

---

---

Alors voilà.

1. Pour commencer, tu fais afficher l'onglet Développeur sur Outlook
   • Fichier > Options > Personnaliser le Ruban
   • Onglets principaux, cocher devant Développeur puis OK
   
   
   
2. Dans l'onglet Accueil, cliquer sur Nouveau message (Version 2013 Nouveau Courrier version 2016)
3. Ceci fait, cliquer dans le ruban sur Développeur puis a gauche sur Visual Basic
   
   
   
4. L'interface de programmation va s'ouvrir.
5. Dans la colonne de gauche, tu ouvres complètement Projet 1 pour descendre a
   ThisOutlookSession
   
   
   
6. Sur ThisOutlookSession, tu cliques a droite puis Code.
7. A droite, dans la colonne de gauche de la nouvelle fenêtre, en haut tu cliques sur la flèche a coté de Général pour obtenir Application.
8. Tu dois arriver a:
   
   
   
9. Maintenant, tu copies colle le script ci-dessous entre les lignes Private Sub Application et End Sub
   

   Code: Tout sélectionner

       Dim strRetourInput As String
    'Affichage InputBox
    strRetourInput = InputBox("Bonjour," & vbCr & " Veuillez entrer votre mot de passe")
    Dim strOrigin As String
    strOrigin = ("Expedi") 'Ici se trouve ton mot de passe original Expedi, et ici tu peux te le changer.
    If strRetourInput <> strOrigin Then
    MsgBox "Password erroné, Recommencer."
        Cancel = True
    Else: strRetourInput = strOrigin
         
    End If

10. Dans la colonne de gauche en bas tu peux renommer ton projet en 'Password' ou autre nom a ta convenance.
    
    
    
11. Tu cliques ensuite sur Enregistrer ou son raccourcis.

Et tu n'as plus qu'a tester.
En complément, il faut savoir que quiconque ayant accès a ton ordinateur et connaissant un peu VBA et Office, peut parfaitement contourner cette fonction.
Donc, on reprends un peu:

• Tu peux cliquer sur l'onglet Outils puis sur Propriétés de Password.
  
  
  
• Tu ouvres l'onglet Protection et la tu lui mets un mot de passe et tu verrouilles l'affichage, puis tu enregistres.

Voilà, plus personne ne peut te changer du moins sans être expert en Crackage.



Inconvénient, chaque fois que tu voudras envoyer un message, il te faudra entrer le mot de passe d'envoi défini ici comme Expedi.
Calirocky

Hello Cali

Même si je n'utilise pas Outlook tu as fait un bon boulot,très intéressant

Merci Didier.