Envoyer un mail en vb.net avec une richtextbox

Question

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é.

Guinfo · Answer

Bonjour,

UP, je suis également intéressé...

GuillaumeX21 · Answer

Oups, mauvais compte...

UP.

Envoyer un mail en vb.net avec une richtextbox

2 réponses

Votre réponse

Discussions similaires