主题：关于发邮件

帮助文件中的下列代码，测试以后，确实可以发邮件，不过每个邮件都有个红色感叹号（紧急），这个有什么办法去掉？

Dim m As New MailSender
m.Host = "smtp.21cn.net"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From = "xiaoliu@Sina.com.cn"
m.To = "meili@Sina.com.cn"
m.Title = "初稿已经完成"
m.Content = "附件为初稿, 请您审阅!"
m.AddAttachments("c:\data\table.txt")
m.SendAsync()

提示什么咯? 你的邮箱把它识别为垃圾右键,所以有这个叹号吧

不是垃圾邮件，鼠标移过去，显示“紧急”

 参考

 

Dim m As New MailSender
m.Host = "smtp.126.com"
m.Account = "lin_hailun@126.com"
m.Password = "6849338."
m.From = "lin_hailun@126.com"
m.To = "Spring.me@qq.com,Spring.me123@qq.com"
m.Title = "主题"
m.Priority = System.Net.Mail.MailPriority.High '邮件的优先级,有三个值:高(在邮件主题前有一个红色感叹号,表示紧急),低(在邮件主题前有一个蓝色向下箭头,表示缓慢),正常(无显示)
m.Send
msgbox("发送完毕")