[急]请教高手一个关于发邮件的问题

在我本地测试发送邮件后到信箱里可以正常看到信件内容，但是将程序放到服务器上（虚拟主机）后能收到邮件，就是邮件正文看不到。

请问高手，这是什么原因，该如何解决？万分感谢！！！

 1        Public Function Send()Function Send(ByVal strSmtpServer As String, ByVal iPort As Integer, ByVal strUserName As String, ByVal strPassword As String, ByVal strFrom As String, ByVal strTo As String, ByVal strCc As String, ByVal strBcc As String, ByVal strSubject As String, ByVal strBody As String, Optional ByVal bHtml As Boolean = True) As Boolean
 2            Try
 3                Dim mail As System.Web.Mail.MailMessage = New System.Web.Mail.MailMessage
 4                mail.From = strFrom
 5                mail.To = strTo
 6                mail.Bcc = strBcc
 7                mail.Cc = strCc
 8                mail.Subject = strSubject
 9                mail.Body = strBody
10                'mail.BodyEncoding = System.Text.Encoding.GetEncoding("utf8")
11
12                If bHtml Then
13                    mail.BodyFormat = System.Web.Mail.MailFormat.Html
14                Else
15                    mail.BodyFormat = System.Web.Mail.MailFormat.Text
16                End If
17                mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
18                mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", strUserName)
19                mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", strPassword)
20                mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", iPort)
21                System.Web.Mail.SmtpMail.SmtpServer = strSmtpServer
22                System.Web.Mail.SmtpMail.Send(mail)
23                Return True
24            Catch ex As Exception
25                Return False
26            End Try
27        End Function