检测最后是否发送成功即可
try Dim m As New MailSender m.port = "587" m.EnableSsl = True m.Host = "smtp.qq.com" m.Account = "455189993@qq.com" m.Password = "helen6849338." m.From = "455189993@qq.com" m.To = "abc12399943kdiccde@qq.com" m.Title = "初jkj完成" m.Content = "附件jkjkj为初稿, 请您审阅!" m.Send msgbox("ok")catch e As Exception msgbox(e.message)End try