Outlook宏:从可变长度的字符串中提取电子邮件

时间:2013-02-20 10:11:29

标签: outlook-vba

我正在为vba中的Outlook工作。一直在搜索,我找不到如何从字符串中提取和发送电子邮件:

string =“xxx my@email.com yyy”

xxx和yyyy可以是任何字符串,任何长度,任何字符。唯一确定的是电子邮件是由空格分隔的。

有任何帮助吗?在此先感谢!!

1 个答案:

答案 0 :(得分:1)

一种可能性:

sString = "my1@email.com xxx my2@email.com yyy my3@email.com"
asString = Split(sString, " ")
For i = 0 To UBound(asString)
    If asString(i) Like "*@*.*" Then
        sEmail = sEmail & "," & asString(i)
    End If
Next

MsgBox Mid(sEmail, 2)