Bonjour Bloody,
Tu viens de trouver ce qui est dans USF_ThierrysContact.zip une petite partie cachée.
Pour tester, c'est tres simple, selectionné un nom et clique Email. Outlook va s'exécuté, par contre si tu selectionne le nom Thierry dans la liste et que tu clique Email, tu aura un msgbox avec les texte suivant qui va s'ouvrir: (=Caption Label e)
"Ceci est mon vrai Email, vous pouvez me l'envoyer, pour me dire votre impression...@+Thierry"
et le titre suivant: (=Caption Label t)
Bravo Vous avez trouvez une partie de la partie cachée héhéhéhé
Voici le code du bouton Email sur le userform:
Private Sub Label4_Click()
Dim Link As String
If TextBox2 = i Then MsgBox e, , t
Link = "mailto:" & TextBox2 & "?Subject=Bonjour " & TextBox1 _
& " de la part de " & Application.UserName & " en direct de la dernière démo de Thierry, lol "
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
End Sub
Tu trouve dans le code "If TextBox2 = i Then MsgBox e, , t"
Ceci vérifie si l'email dans le textbox2 est indentique au label i (=eygenraam.thierry@laposte.net), comme c'est identique un message s'ouvre avec comme text la caption de "label e" et comme titre la caption de "label t"
Plus tard dans USF_XLD_ContactsV2.02.zip
c'est label cacheront les mots de passe pour accédé à la base de donnée
J'espère que tu comprends un peu plus maintenant!
Bonne chance
@Christophe@
