Envoyer un mail en vb.net avec une richtextbox

Signaler
Messages postés
1
Date d'inscription
vendredi 29 février 2008
Statut
Membre
Dernière intervention
8 février 2010
-
Messages postés
1
Date d'inscription
vendredi 14 mai 2010
Statut
Membre
Dernière intervention
14 mai 2010
-
Bonjour,

J'ai compris comment envoyer un mail aucun problème, du moins pour l'instant, avec gmail j'y arrive avec yahoo ça ne marche pas...

Je mets mon texte dans une richtextbox, et quand j'envoie, si je met richtextbox.text dans le corp du message, j'envoie le text sans format.

Et lorsque je mets richtextbox.rtf le texte est envoyé avec toutes les "balises" de rtf. Du coup il est illisible.

J'ai essayé l'encoding mais je ne sais pas non plus lequel choisir.
[i]Public Function EnvoyerMail2() As Boolean
        Dim MyEncoding As System.Text.Encoding
        MyEncoding = System.Text.Encoding.GetEncoding("UTF-8")

        Dim MyMail As New MailMessage
        Dim MySMTPClient As New SmtpClient("smtp.gmail.com ")


        MyMail.From = New MailAddress("###@gmail.com")

        MyMail.To.Add(New MailAddress("######@yahoo.fr"))
        MyMail.Body = Form1.RichTextBox1.Rtf
        MyMail.BodyEncoding = MyEncoding

        MyMail.Priority = MailPriority.High
        MyMail.Subject = "Salut"
       
        MySMTPClient.EnableSsl = True
        MySMTPClient.Credentials = New NetworkCredential("####@gmail.com", "###")
        MySMTPClient.Send(MyMail)
        MsgBox("E-Mail bien envoyé !", MsgBoxStyle.Information, "Envoi de l'E-Mail")
        MyMail.To.Clear()/i


Le but est par la suite de réaliser un logiciel d'emailing personnalisé.

2 réponses

Messages postés
1
Date d'inscription
samedi 27 juin 2009
Statut
Membre
Dernière intervention
14 mai 2010

Bonjour,

UP, je suis également intéressé...
Messages postés
1
Date d'inscription
vendredi 14 mai 2010
Statut
Membre
Dernière intervention
14 mai 2010

Oups, mauvais compte...

UP.