envoyer un mail à la couleur du fond et de la police du textbox

Question

bonjour, j'ai créer un programme pour envoyer des mails qui comprend ce code quand je clique sur le bouton envoyer

Private

Sub Envoyer_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Button1.Click

Try
Dim message 
As
New MailMessage(Expéditeur.Text, Destinataire.Text, Sujet.Text, Messagemail.Text)

Dim emailClient 
As
New SmtpClient(SMTP.Text)
emailClient.Send(message)
MsgBox(
"Votre mail à bien était envoyé. Le destinataire recevra votre message d'ici une minute", vbInformation, 
"Envoyé")

Catch ex 
As Exception
MsgBox(
"Une erreur est survenue lors de l'envoi de votre message. Vérifiez l'addresse mail et si tous les champs sont bien remplis.", vbCritical, 
"Erreur")

End
TrySeul problème le mail est toujours en noir tandis que mon textbox (celui où j'écris le message) est rose en forecolor. Comment je peux faire pour que je puisse envoyer des mails tels que je le vois dans mon textbox du message là je cale.
Merci d'avance.

MT Productions

vbnino · Answer

Salut!

 -A moins d'envoyer l'@-mail sur format HTML , je ne vois pas comment

Triboutmatthieu · Answer

oui mais peux t'on le faire avec un textbox? si oui comment?
j'ai ajoutés .bodyFormat = HTML

MT Productions

vbnino · Answer

Salut! -Ce que je sais: -Crée un fichier HTML avec telle code (dans une richtext) si tu veux : Untitled Document Triboutmatthieu -Puis ouvre le fichier avec le code et remplace la couleur ( marqué ici red) par la la valeur de BlackColor en suprimant le vb par exemple "vbred" ---> "red" -et remplace le message (marqué ici Triboutmatthieu) par ton message - et voila ton code : et envoi le fichier Private Sub Envoyer_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try richtext.save ("C:\xxxx.html",1) Dim message AsNew MailMessage(Expéditeur.Text, Destinataire.Text, Sujet.Text, Messagemail.Text) Dim emailClient AsNew SmtpClient(SMTP.Text) emailClient.Send(message) MsgBox( "Votre mail à bien était envoyé. Le destinataire recevra votre message d'ici une minute", vbInformation, "Envoyé") Catch ex As Exception MsgBox( "Une erreur est survenue lors de l'envoi de votre message. Vérifiez l'addresse mail et si tous les champs sont bien remplis.", vbCritical, "Erreur") EndTry -Si ta pas compris se que j'ai fais bah dis le.

Triboutmatthieu · Answer

j'ai pas trop compris tu pourré m'envoyer une mini programme sur ça à l'adresse
mtproductions@hotmail.fr
merci

MT Productions

Envoyer un mail à la couleur du fond et de la police du textbox

4 réponses

Votre réponse

Discussions similaires