以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  不明白为何错误?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21599)
--  作者：hhbb
--  发布时间：2012/7/18 14:13:00
--  不明白为何错误?
  • MailSender的AddReceiver不支持多个分隔符吗?

Dim m As New MailSender
m.Host = "smtp.21cn.net"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From = "xiaoliu@Sina.com.cn"
Dim ems as string = "meili@Sina.com.cn;yangzi@Microsoft.com"
Dim chr() as char ={";","/",","} 
Dim vs1() as String
vs1 =ems.split(chr)     \'设为vs1 =ems.split(";") 单个分隔符就正常

For Each em1 As String In vs1
    m.AddReceiver(em1)
Next
m.Title = "李总明天来北京"
m.C
m.SendAsync()

图片点击可在新窗口打开查看此主题相关图片如下：001.png
图片点击可在新窗口打开查看
--  作者：狐狸爸爸
--  发布时间：2012/7/18 14:34:00
--  
呵呵，是的，要一个一个用AddReceiver加进去。
[此贴子已经被作者于2012-7-18 14:36:04编辑过]
--  作者：hhbb
--  发布时间：2012/7/18 14:41:00
--  
以下是引用狐狸爸爸在2012-7-18 14:34:00的发言：
呵呵额，是的，要一个一个用AddReceiver加进去。
不明白?
Dim ems as string = "meili@Sina.com.cn;yangzi@Microsoft.com"
Dim chr() as char ={";","/",","} 
Dim vs1() as String
vs1 =ems.split(chr)     

For Each em1 As String In vs1
    output.show(em1)
Next
得出:
meili@Sina.com.cn
yangzi@Microsoft.com

结果没问题啊,为何用在 m.AddReceiver 会退出?
--  作者：狐狸爸爸
--  发布时间：2012/7/18 14:44:00
--  

我用你的代码测试，没有退出啊。

 

 
--  作者：hhbb
--  发布时间：2012/7/18 14:55:00
--  
以下是引用狐狸爸爸在2012-7-18 14:44:00的发言：

我用你的代码测试，没有退出啊。

================================================= 

 在我这里确实死QQ了,在死QQ前,不点击[回报]或[不回报],代码也完成了群发任务.

这个问题,我相信就是和多个分隔符有关,因改为单个分隔符就没有问题!
--  作者：狐狸爸爸
--  发布时间：2012/7/18 15:06:00
--  
奇怪了，我确实正常的。
--  作者：hhbb
--  发布时间：2012/7/18 15:15:00
--  
以下是引用狐狸爸爸在2012-7-18 15:06:00的发言：
奇怪了，我确实正常的。
嘻嘻,上面的代码是不会退出的!但在我这,就是这样: 多个分隔符分隔就QQ,单个分隔符分隔就OK!
--  作者：狐狸爸爸
--  发布时间：2012/7/18 15:22:00
--  

我就是用多个分割符号测试的，我同事测试也正常。
--  作者：hhbb
--  发布时间：2012/7/18 15:29:00
--  
我的解决方法是:在指定的范围下(如";,/\\+[]<>|*"),把它转化为一个分隔符.
--  作者：hhbb
--  发布时间：2012/7/18 15:46:00
--  
多谢楼上Muhua兄的测试!
我的代码应没问题,我就是不明白为何用多个分隔符就QQ.
我现在用10楼办法解决