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 上 也可以正常运行。但是收不到发送的邮件，也就是邮件没有发送出去
我不知道会不会是服务器环境的问题，其它程序又无影响。
不知道从哪里找原因了
相关问答：
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看i ......
用VB编程读取短信,得到一大堆unicode编码,请教如何转换成文本
例如:读取短信后(华为900C或TC35i),串口得到如下数据:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......
