[vb.net] envoyer/recevoir des mails Résolu/Fermé

Question

Bonjour à tous,
Je souhaiterais créer un prog en vb.net qui me permettrais d'envoyer et de recevoir des mails. Mes connaissances ne sont pas très importantes mais j'arrive à me débrouiller.

J'ai fais des recherches et j'ai vu qu'il fallait utiliser la classe System.Net.Mail pour envoyer les mails par le protocol smtp. Le problème c'est que je sais pas trop m'en servir. Ca ce complique encore plus avec la classe System.Net.Sockets pour recevoir les mails via pop3

Si vous pouviez éclairer ma lanterne,

Je vous remercie par avance

Fireblade · Accepted Answer

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+

bobeche · Answer

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

votresupersauveur · Answer

Salut,
J'ai essayé ton code mais je n'arrive pas à configurer le stmp.
Peux tu m'aider ?
a+

MohaBaba · Answer

Finalement j'ai fignoler avec Mayzz un code qui finalement a marché (pour ceux qui voudront le consulter, il faudra savoir que je suis en Tunisie et que le fournisseur internet de la boîte est Globalnet. Donc il vous suffira de changer le smtp. Exemple : pour gmail vous mettez smtp.gmail.com) 

Voici le code : avec VB.NET 2008 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
Dim mail As New MailMessage() 

'set the addresses 
mail.From = New MailAddress("contact@prodit.net") 
mail.To.Add("joedassin87@gmail.com") 

'set the content 
mail.Subject = "sujet de mail" 
mail.Body = "le body du mail." 

Dim client As New SmtpClient("xsmtp.gnet.tn") 

Try 
client.Send(mail) 
MsgBox("coucou ca va") 
Catch ex As Exception 

MsgBox("Echec de l'envoi") 

End Try 


End Sub

[vb.net] envoyer/recevoir des mails

4 réponses

Discussions similaires