最近想做一个公司系统自动发送提醒邮件的系统，刚才测试了一下，发现一个问题。测试代码如下：

Dim m As New MailSender
m.Host = "smtp.exmail.qq.com"
m.Account = "jimmy"
m.Password = "***********"
m.From = "jimmy@gzhito.com.cn"
m.To = "sale@gzhito.com.cn"
m.Title = "新到货进口货物资料"
m.C
m.SendAsync
Output.show(1)

没有报错，但也收到到邮件。后来我又改了一下代码，把异步变成马上发送，代码如下：

Dim m As New MailSender
m.Host = "smtp.exmail.qq.com"
m.Account = "jimmy"
m.Password = "**********"
m.From = "jimmy@gzhito.com.cn"
m.To = "sale@gzhito.com.cn"
m.Title = "新到货进口货物资料"
m.C
m.Send
Output.show(1)

这样就会报错，祥细见下图:

此主题相关图片如下：d~abb~35n20f}t6t9{0~%v.jpg

请问是什么问题？多谢！

服务器地址直接改成

m.Host = "smtp.qq.com"

或者换一种方式

Dim smtp As New System.Net.Mail.SmtpClient("smtp.gmail.com", 587)
smtp.EnableSsl = True

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=76037&skin=0

大红袍老师

经过测试，用你这个没有问题，但要加附件，是怎么个格式？

这样

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=74157&skin=0

都搞定了。谢谢大红袍老师。

试了一下，如果不用异步的话，发有几个附件的邮件要等很久的。你的代码中的最后一步，要改成异步发送，要怎么改呢？因为不是狐表中的，试了一下不行。

  Try
            client.Send(message)

            msgbox("邮件发送成功")
        Catch ex As Exception
            msgbox("发送失败:" & ex.message)
        End Try

我把client.Send(message) 改成：client.SendAsync(message)  会报错。

参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=70729&replyID=486519&skin=1