radams

i have a couple thousand emails that have been returned to my inbox as undeliverable. i need to extract the email address that is in the body of the returned email and then send it to an access database. i've done all of this except extracting the email address. i have the body assigned to the string 'emailbody'. but how do i create a substring that contains the email address? any help would be great.

Mikecrosoft

if your emails are separated with commas, use the split function

strEmails = "A@B.com, C@D.Com, E@F.Com,...

Dim MyEmailsArr() as String
MyEmailsArr = Split(strEmails, ",")

radams

nope, there's just one email address per body, and it's always in some random location within the body string.

Mikecrosoft

Well then you need to locate the @, then read to the previous space, and then to the next space

example:
this is your body:

Hello my friend this is my email: mike_crosoft@hotmail.com


in the 46 place is the @, then loop througth the body starts on the 46 place to back until the space (mike_crosoft@), then loop throught the body until the next space (@hotmail.com).

i hope make sense

Agent707

Well, if there is a space before and after the address, you could "hunt" for an @ and then get everything before and after it until you hit the space?

Edit: Works for me

Flyguy

We don't like spammers/mass mailers.