请进来看下,发邮件的问题(有乱码)>>>>>>>>急啊???????????

function   SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority,MailServer,MailServerUserName,MailServerPassword,MailDomain)   
    Dim   JMail   
  Set   JMail=Server.CreateObject("JMail.Message")   
  JMail.Charset="UTF-8"                     '邮件编码   
  JMail.silent=true   
  JMail.ContentType   =   "text/html"           '邮件正文格式   
  JMail.MailServerUserName   =   MailServerUserName         '登录用户名   
        JMail.MailServerPassWord   =   MailServerPassword                 '登录密码   
  JMail.MailDomain   =   MailDomain               '域名（如果用“name@domain.com”这样的用户名登录时，请指明domain.com   
  JMail.AddRecipient   MailtoAddress,MailtoName           '收信人   
  JMail.Subject=Subject                   '主题   
  ' JMail.HMTLBody=MailBody               '邮件正文（HTML格式）   
  JMail.Body=MailBody                     '邮件正文（纯文本格式）   
  JMail.FromName=FromName                   '发信人姓名   
  JMail.From   =   MailFrom                   '发信人Email   
  JMail.Priority=Priority                             '邮件等级，1为加急，3为普通，5为低级   
  JMailerror=JMail.Send(MailServer)   
   
  JMail.Close()   
  Set   JMail   =   Nothing   
  end   function   
   
   
  请各位高手看下,我这段代码怎样修改才可以支持简体邮箱和繁体邮箱呢?   
   
  (无论是发到简体的邮箱还是繁体的邮箱都不会出现乱的,怎样修改?)   
   
  如果谁有更好的代码,也可以发给我(只要是可以支持简体和繁体邮箱的代码都可以)   
   
  先谢了!!拜托!!!   
   
  急啊???????????????