Envoyer un mail à partir de textbox ?

Bonjour, je crée une appliation dont je demande l'activation pour pouvoir profiter des fonctionalités complètes. Le seul problème, c'est que j'aimerais que lorsque je clique sur le bouton "Activer" de la boite de dialogue, il m'envoie le contenu des textbox à mon adresse e-mail que j'ai placés de cette manière : Ex : textbox1 = 1 button1 = b1 =============================================== Nom complet : 1 CD-Key : 2-3-4-5-6 E-Mail : 7 Commentaires : 8 b2 = me rappeler plus tard b1 = Activer =============================================== Pourriez-vous m'éclairer ? Merci d'avance.

PS : J'utilise VB 2005 Express

et si possible, puurriez-vous m'aider à l'implanter dans mon code de ma fenêtre d'activation ? =============================================== Public Class activation Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click, Label5.Click End Sub Dim form1 As Form1 Dim activation As activation Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button3.Click activation = New activation Me.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged If TextBox2.TextLength = 5 Then TextBox3.Focus() End If End Sub Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged If TextBox3.TextLength = 5 Then TextBox4.Focus() End If End Sub Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged If TextBox4.TextLength = 5 Then TextBox5.Focus() End If End Sub Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged If TextBox5.TextLength = 5 Then TextBox6.Focus() End If End Sub Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged End Sub Private Sub activation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MessageBox.Show("Votre produit doit être activé. Veuillez suivre les instructions relatives à l'activation dans la prochaine fenêtre", "Activation requise", MessageBoxButtons.OK, MessageBoxIcon.Exclamation,MessageBoxDefaultButton.Button1) End Sub End Class

Public Class activation

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click, Label5.Click

    End Sub

    Dim form1 As Form1
    Dim activation As activation
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button3.Click
        activation = New activation
        Me.Close()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        If TextBox2.TextLength = 5 Then
            TextBox3.Focus()
        End If

    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
        If TextBox3.TextLength = 5 Then
            TextBox4.Focus()
        End If
    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
        If TextBox4.TextLength = 5 Then
            TextBox5.Focus()
        End If
    End Sub

    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
        If TextBox5.TextLength = 5 Then
            TextBox6.Focus()
        End If
    End Sub

    Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged

    End Sub

    Private Sub activation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        MessageBox.Show("Votre produit doit être activé. Veuillez suivre les instructions relatives à l'activation dans la prochaine fenêtre", "Activation requise", MessageBoxButtons.OK, MessageBoxIcon.Exclamation,MessageBoxDefaultButton.Button1)
    End Sub
End Class

voilà.

Button3 = Me rappeler plus tard
Button1 = Activer

Tu peux t'inspirer de ceci ...