Outlook macro: extract email from string with variable length -

Outlook macro: extract email from string with variable length -

i'm working on macro outlook in vba. 've been searching , can't find how extract , email string way:

string = "xxx my@email.com yyy"

xxx , yyyy can string, length, character. thing sure email delimited blank spaces.

any help? in advance!!

one possibility:

sstring = "my1@email.com xxx my2@email.com yyy my3@email.com" asstring = split(sstring, " ") = 0 ubound(asstring) if asstring(i) "*@*.*" semail = semail & "," & asstring(i) end if next msgbox mid(semail, 2)

outlook-vba