Slt,

Je t'avoue franchement, moi et les sockets c'est pas mon truc. Mais par contre, pour envoyer un mail, j'ai créé ce code parce que je ne trouvais pas sur Internet. Il y a la possibilité d'envoyer des pièces jointes.

Imports System.Net
Imports System.Net.Mail
Public Class Form1
Dim MyMail As New MailMessage
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim MySMTPClient As New SmtpClient(ComboBox1.Text)
MyMail.From = New MailAddress(TextBox1.Text)
MyMail.ReplyTo = New MailAddress(TextBox2.Text)
MyMail.To.Add(New MailAddress(TextBox3.Text))
MyMail.Body = RichTextBox1.Text
MyMail.Priority = MailPriority.High
MyMail.Subject = TextBox5.Text
For Each Lines As String In RichTextBox2.Lines
MyMail.Attachments.Add(New Mail.Attachment(Lines))
Next
MySMTPClient.Send(MyMail)
MsgBox("E-Mail bien envoyé !", MsgBoxStyle.Information, "Envoi de l'E-Mail")
MyMail.To.Clear()
MyMail.Attachments.Clear()
Catch ex As Exception
MsgBox("Impossible d'envoyer l'E-Mail.", MsgBoxStyle.Critical, "Envoi de l'E-Mail")
MyMail.To.Clear()
MyMail.Attachments.Clear()

End Try
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
OpenFileDialog1.Filter = "Tous les fichiers (*.*)|*.*"
OpenFileDialog1.ShowDialog()
End Sub

Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
If RichTextBox2.Text <> "" Then
RichTextBox2.Text = RichTextBox2.Text & vbCr & OpenFileDialog1.FileName
Else
RichTextBox2.Text = OpenFileDialog1.FileName
End If

End Sub
End Class

a+