E-mail encoding ignores windows-1250

[mitja.felicijan]

I have a strange problem. When i try to send email in utf-8 it sends it in the true format and headers are also utf-8. But when I try to send it in windows-1250 it automaticly recodes it to iso-8859-2. The same goes with windows-1252, but in this case it chooses iso-8859-1.

    Public Sub SendEmail(ByVal EmailAddressFrom As String, ByVal EmailAddressTo As String, ByVal EmailAddressFromDisplay As String, _
ByVal EmailMessageLocation As String, ByVal Subject As String, ByVal MailHost As String, ByVal UserName As String, ByVal Password As String, _
ByVal FileEncoding As String, ByVal OutEncoding As String)
 
        Dim mail As MailMessage
        Dim stmMail As New StreamReader(EmailMessageLocation, System.Text.Encoding.GetEncoding("windows-1250"))
 
        Try
 
            Dim smtp As SmtpClient
            Dim mlto As New MailAddress(EmailAddressTo)
            mail = New MailMessage()
            smtp = New SmtpClient()
 
            mail.BodyEncoding = System.Text.Encoding.GetEncoding("windows-1250")
            mail.SubjectEncoding = System.Text.Encoding.GetEncoding("windows-1250")
 
            mail.From = New MailAddress(EmailAddressFrom, EmailAddressFromDisplay)
            mail.To.Add(mlto)
            mail.Subject = Subject
            mail.IsBodyHtml = True
            mail.Body = stmMail.ReadToEnd()
 
            smtp.Host = MailHost
            smtp.Credentials = New System.Net.NetworkCredential(UserName, Password)
            smtp.Send(mail)
 
        Finally
            stmMail.Close()
        End Try
 
    End Sub

I donts know what could be wrong. Thnx in advance.