Envoi d'un formulaire de contact par email

        Dim mail As New System.Net.Mail.MailMessage
        Dim smtp As New System.Net.Mail.SmtpClient

        With mail
            .Body = "Le corp du message"
            .Subject = "Le sujet de l'email"
            .From = New System.Net.Mail.MailAddress("Adresse expéditeur", "Nom expéditeur")
            .To.Add(New System.Net.Mail.MailAddress("Adresse destinataire"))
            .IsBodyHtml = False ' <= A toi de voir selon ton contenu
        End With

        Try
            smtp.Send(mail)
        Catch ex As Exception
            'Gestion des erreurs
        End Try