Bonjour,

J'ai programmé un projet pour l'envoi de mails. Je souhaiterais pouvoir changer la police de caractère, mettre en gras etc... du corps du texte. Pouvez vous me donner pistes pour le faire.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub sendyahoo(expediteur As String, psw As String, objet As String, body As String)
Dim SmtpServer As New SmtpClient()
            Dim mail As New MailMessage()
            SmtpServer.Credentials = New Net.NetworkCredential(expediteur, psw)
            SmtpServer.Port = 587
            SmtpServer.Host = "smtp.mail.yahoo.fr"
            SmtpServer.EnableSsl = True
            mail = New MailMessage()
            mail.From = New MailAddress(expediteur)
            mail.To.Add(destinataireemail)
            mail.Subject = objet
            mail.Body = body
            SmtpServer.Send(mail)
En vous remerciant d'avance