Alors ici j'essay de faire en sorte d'envoyer un email, ( ce qui fonctionne parfaitement ) le probleme est que j'aimerai le personnaliser, donc :
quand je met [nom] dans un textbox, il doit etre remplacer par le nom de la personne enregistré dans une base de donnée, le code donne ca :
Do until Not myreader.Read()
Dim ResultatFinal as string
Dim Resultatsujet as string
Dim ResultatRequete as string
Dim ResultatRequetes as string
dim ContenuLexique as string
dim nom as string
ResultatRequete = Textbox1.Text
ContenuLexique = "[nom]"
ResultatFinal = replace(ResultatRequete,ContenuLexique, CType(myReader("pseudo"), string))
ResultatRequetes = Textbox2.Text
Resultatsujet = replace(ResultatRequetes,ContenuLexique, CType(myReader("pseudo"), string))
Dim mMailMessage As New System.Web.Mail.MailMessage()
mMailMessage.From = Label1.Text
mMailMessage.To = CType(myReader("email"), String)
mMailMessage.Subject = Resultatsujet
mMailMessage.Body = ResultatFinal
mMailMessage.BodyFormat = System.Web.Mail.MailFormat.HTML
mMailMessage.Priority = System.Web.Mail.MailPriority.Normal
System.Web.Mail.SmtpMail.Send(mMailMessage)
loop
[ je me suis servit d'une source de jesusonline, merci :) ]
Alors tout marche bien sauf une chose :
quand je recoi un mail, le nom est correctement ajouté mais il y a une énorme série d'espace entre le nom et le reste du texte, je me retrouve avec :
---
salut Mickylord reste du texte ...
----
je suis presque sur que cela viens du CType(myReader("pseudo"), string), mais je ne sais pas de quoi ... J'ai essayé de changé string en char et cela marche,
parcontre au lieu d'avoir le nom en entier je n'ai que la premiere lettre ;)