主题：[求助]快崩溃死了，邮件发不出去，但别人能用同样的软件能发....

 客服上班也没用吧？是邮箱和你代码数据的问题。

...       我都换电脑了，还是不行......      发不出去..  用你给我的代码也是，  提示 发送成功， 但  就是 收不到...

可能是你网络环境的问题.  换条网线看看,如果是笔记本电脑.搬走到别的地方试试

这样修改看看：

 

Dim m As New MailSender
m.Host = "smtp.qq.com"
m.Account = "lin_hailun@qq.com"
m.Password = "helen6849338."
m.AddReceiver(lin_hailun@qq.com)
m.To = "276544070@qq.com"
m.Title = "98789jjj888"
m.C
m.Send
msgbox("发送完毕")

  家里的 无线网， 和有线网 都是过了，  下午拿着电脑 再去 朋友家看看...

留意一下14楼

按照您的 代码   试了一下，  提示 没有发送人不行， 所以 添加了 m.From  ，   并且，    

我搞错了：
 
Dim m As New MailSender
m.Host = "smtp.qq.com"
m.Account = "lin_hailun@qq.com"
m.Password = "helen6849338."
m.From = “lin_hailun@qq.com“  '发件人
m.AddReceiver(”276544070@qq.com“） '换个方式添加收件人
m.Title = "98789jjj888"
m.C
m.Send
msgbox("发送完毕")

 

我以前遇到过一次，直接用to发不了，用AddReceiver能发。