[vb.net] envoyer/recevoir des mails

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+

Salut

j ai essayé ton code

mais que mets tu dans la combobox1 pour paramétrer le smtp et comment prends tu les infos pour le smtp

merci
jacques