Outlook макрос: извлечение электронной почты из строки с переменной длиной

Question

Я работаю над макросом для Outlook в vba. «Ве поиска и я не могу найти, как извлечь и электронной почты из строки таким образом:

строку =„ххх my@email.com ууу“

ххх и гггг может быть любой строкой, любой длины , любой символ. единственное, что уверенно в том, что электронное письмо ограничено пробелами.

Любая помощь? Заранее спасибо!!

Answer 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)