E-mails via MailMessage til Skolekom oversætter ikke danske bogstaver korrekt
Jeg bruger følgende funktion til at sende mails. Den virker fint, men af en eller anden grund giver den problemer med visning af danske bogstaver ved linieskift hos modtagere på skolekom e-mail system.Eksempel og kode følger nedenfor:
?????:-) karsten_larsen
F.eks. sendes følgende til en skolekom adresse:
en ø som lå i en sø
høner lægger æg
Søren bor ved Æbeltoft Å
æøåÆØÅ
æ
ø
å
Æ
Ø
Å
Og der vises følgende i skolekom:
en ø som lå i en s√∏
høner lægger æg
Søren bor ved Æbeltoft Å
æøåÆØÅ
æ
√∏
å
Æ
√ò
Å
Fra vis kode ses dette:
...
<div align="left" style="text-align:left;">
<font face="Arial" size="-1" color="#000000" style="font-family:Arial;font-size:7pt;color:#000000;">
en ø som lå i en s√∏
</font>
</div>
... osv.
********** E-mail function start *******
Dim EmailMessage As New MailMessage
EmailMessage.From = New MailAddress("Fra E-Mail Adresse", "NAVN")
EmailMessage.To.Add(EmailTo)
EmailMessage.Subject = EmailSubjekt
EmailMessage.Priority = MailPriority.Normal
EmailMessage.BodyEncoding = System.Text.Encoding.GetEncoding("utf-8")
Dim plainView As AlternateView = AlternateView.CreateAlternateViewFromString(TextPlain, Nothing, "text/plain")
Dim htmlView As AlternateView = AlternateView.CreateAlternateViewFromString(TextHtml, Nothing, "text/html")
EmailMessage.AlternateViews.Add(plainView)
EmailMessage.AlternateViews.Add(htmlView)
Dim mailClient As SmtpClient = New SmtpClient
Dim mailServerName As String = "Post Server"
mailClient.Host = mailServerName
mailClient.Send(EmailMessage)
EmailMessage.Dispose()
********** E-mail function slut*******
********* TextHtml start **************
TextHtml = TextHtml & "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"
TextHtml = TextHtml & "<html xmlns=""http://www.w3.org/1999/xhtml"" >"
TextHtml = TextHtml & "<head>"
TextHtml = TextHtml & "<title>Untitled Page</title>"
TextHtml = TextHtml & "</head>"
TextHtml = TextHtml & "<body style=""font-family: Arial, Verdana; font-size: 12px;"">"
TextHtml = TextHtml & "<table width='750' bgcolor='#bec9d2' align='center'>"
TextHtml = TextHtml & "<tr><td valign='middle'>"
TextHtml = TextHtml & "<table width='100%' bgcolor='#FFFFFF' height='50'>"
TextHtml = TextHtml & "<tr><td valign='top'>"
TextHtml = TextHtml & "<table border='0' width='90%' align='center'>"
TextHtml = TextHtml & "<tr><td> </td></tr>"
TextHtml = TextHtml & "<tr><td>"
TextHtml = TextHtml & "<br><br>"
str = tbEmailCreateIndhold.Text ' fikser linieskift
str = Replace(str, vbCrLf, "<br>")
TextHtml = TextHtml & str & "<br><br>"
TextHtml = TextHtml & "</td></tr>"
TextHtml = TextHtml & "</table>"
TextHtml = TextHtml & "</td></tr>"
TextHtml = TextHtml & "</table>"
TextHtml = TextHtml & "</td></tr>"
TextHtml = TextHtml & "</table>"
TextHtml = TextHtml & "</body>"
TextHtml = TextHtml & "</html>"
********* TextHtml Slut **************
