主题：帮助中的代码无法执行

 

Dim m As New MailSender
m.Host = "smtp.21cn.net"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From = "xiaoliu@Sina.com.cn"
m.AddReceiver("meili@Sina.com.cn")
m.AddReceiver("yangzi@Microsoft.com")
m.Title = "李总明天来北京"
m.Content = "航班号是gz1234,上午11点到达,请注意接机"
m.SendAsync()

 

将上面的账号等信息替换成自己的以后，无法执行。但如果用TO发个一个收件人，则可以。

不知何故？

重复写两段代码，如果收件人多，用循环···

 

我更为关心的是，这段代码错在哪了？

 

 

 

 

一共俩个收件人，都发不出去。还用循环？

 

 

这不是循环不循环的问题。

 

 

请高手解决。

我测试没有问题，有时收不到，不一定就是代码的问题，和邮箱也有关系。

也有可能被当做垃圾邮件了。

呵呵,用網易免費郵箱呀,我每月都要群發20-30個Email,每個附件近700K,很順利!