How use VBA to auto extract email address from HTML page?

I have used Doc.getElementById("ID").innerText to extract emails from some webpages. But I have a trouble in the following webpage, in which there is no Tag name or ID name for the email link. I could not use VBA to find and extract it. Anyone can give a help?

http://www.sciencedirect.com/science...92867412010008

(I need the email address in the button of the little green envelop. The source is "<a href="mailto:t.sixma@nki.nl"><img src="http://cdn.els-cdn.com/sd/entities/REemail.gif" alt="E-mail the corresponding author"></a>")

Loop through Doc.links looking for href property containing 'mailto:'.

Originally Posted by Chippy

Loop through Doc.links looking for href property containing 'mailto:'.

Thanks! But could you show me the detail to find the 'mailto:'? The following is my code. If the webpage contains two emails, I will insert a row for the second one.

Please Login or Register  to view this content.

Here's one way (untested). This puts all the mailto links into an array - a fixed size array, but I'll let you adapt it as necessary.

Please Login or Register  to view this content.