主题：邮件发送

老师好，用帮助文件里的邮件发送程序，为什么不稳定，今天早晨可以发送，现在就不行。为什么程序不稳定。（我关闭了360杀毒和卫士仍然不能发送邮件），请问该怎么解决？

Dim m As New MailSender
m.Host = "smtp.163.com"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From ="feng@163.com"
m.To = "zong@sina.com.cn"
m.Title = "订单上报"
m.Content = "订单上报"
m.AddAttachments("c:\temp\gd.mdb") '将上报文件作为附件发送
m.SendAsync()