不明白为何错误? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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)

m.Title = "李总明天来北京"

m.C

m.SendAsync()

此主题相关图片如下：001.png

主题：不明白为何错误?