关于split函数的用法

Question

我设置了一个发送邮件系统，在email地址一栏有多个email地址的情况下(email地址用:号隔开)怎么使用split函数实现发送多个地址?谢谢！

Answer 1

split函数只能实现分割字符串，发送地址还得自己写代码

Answer 2

split的例子：
dim rlt as variant
rlt=split("123;456;789")
结果：
rlt(0)="123"
rlt(1)="456"
rlt(2)="789"

Answer 3

这个用不着split吧，直接发不就行了，当然，你愿意用的话就这样：
dim buff() as string
buff()=split(email地址一栏的文本,":")
dim i as long
for i=0 to ubound(buff)
以buff(i)为参数发送email
next

Answer 4

假设地址栏为Text1
dim a as variant
dim i as integer
a=split(Text1.Text,";")  '把各地址存到数组中
if UBound(a)>=0 then
  for i=0 to UBound(a)
    发送
  next
end if

Answer 5

Dim i As Long
    Dim aryData As Variant
    Dim strEmail As String
    
    strEmail = "[email protected]:[email protected]:[email protected]"
    aryData = Split(strEmail, ":")
    For i = 0 To UBound(aryData)
        MsgBox aryData(i)
    Next＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习交流网站，欢迎大家访问！
http://www.j2soft.cn/
http://j2soft.008.net/

Answer 6

我就是不会在发送时设置split分割地址，能给一段用到split函数的邮件发送代码的例子吗?万分感谢！

Answer 7

我的email地址时存放在MSFlexGrid控件中( .textmatrix(1,1))