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.
En vous remerciant d'avance
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)
Partager