主题：收不到邮件

Dim m As New MailSender
m.Host = "61.147.116.236"
m.Account = "lihe"
m.Password = "lihe123456"
m.From = "ccpa-lihe@sohu.com"
m.To = "lihe60@sohu.com"
m.Title = "初稿已经完成"
m.C
m.AddAttachments("e:\erp.mdb")
m.SendAsync()

这段代码全部是真实的，为什么收到不邮件。（除了红色部份要改动）