VB发送邮件问题 - .NET技术 / VB.NET

发送邮件部分代码如下：
Private Sub SendEmail(ByVal ToEmail, ByVal Title, ByVal Content)
  Dim smtp As New System.Net.Mail.SmtpClient("smtp.163.com", 25)
  smtp.Credentials = New System.Net.NetworkCredential("xxx@163.com", "password")
  Dim mail As New System.Net.Mail.MailMessage()
  mail.Subject = Title
  mail.SubjectEncoding = System.Text.Encoding.GetEncoding("GB2312")
  mail.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312")
  mail.from = New System.Net.Mail.MailAddress("xxx@163.com")
  mail.Priority = System.Net.Mail.MailPriority.Normal
  mail.IsBodyHtml = True
  mail.Body = Content
  mail.To.Add(ToEmail)
  smtp.Send(mail)
  End Sub


在本地XP环境里测试可以正常发送，放在server 2003的服务器上发送邮件不能正常执行。
是什么原因呢？
Server2003中 SMTP服务也安装了

---

防火墙之类的设置做了？

---

防火墙，杀软，360 之类的都没开

---

看不出有什么问题，你说不能正常运行，总有个错误提示吧？

---

我的vs.net2003里怎么没有mapi这个控件呢？

---

本地可以正常运行。可以收到发送的邮件
server2003 上 也可以正常运行。但是收不到发送的邮件，也就是邮件没有发送出去

---

我不知道会不会是服务器环境的问题，其它程序又无影响。
不知道从哪里找原因了