Macro for extracting email from multiple URLs

[riana]

Hi all,

I have a list of websites in Excel, in column A1:A1100. I would like a macro to find the email addresses on these websites, copy them, and paste them into B1:B1100. Is it possible?

Your help would be highly appreciated.

 

[Akuini]

Hi all,

I have a list of websites in Excel, in column A1:A1100. I would like a macro to find the email addresses on these websites, copy them, and paste them into B1:B1100. Is it possible?

Your help would be highly appreciated.

Can you post some data sample?

 

[riana]

Thank you for your reply.

Yes, here are some sample sites:

http://www.malerbetrieb-bremer.de/

http://www.ehr-malerbetrieb.de/

http://www.malermeister-lalla.de/

http://www.dressler-mehlhose.de/

http://maler-wierig.de/

http://www.malermeister-poitz.de/

http://www.maler-schuster-wilthen.de/

http://www.malermeister-g-sturm.de/

http://www.maler-schaettler.de/

http://www.maler-neugersdorf.de/

http://www.maler-lecke.de/

https://www.maler-knoepper.de/

http://www.maler-mittelhessen.de/

http://www.maler-mittelhessen.de/

http://www.beton-statt-fliesen.de/

http://www.dirk-grosshaus.de/

http://www.maler-robert.de/

http://maler-orak.de/

http://www.ruehlfernwald.de/ http://www.kleinundhoessler.de/ <tbody> </tbody>

<colgroup><col></colgroup><tbody>
</tbody>

 

[Akuini]

I don't understand, where are you supposed to find the email addresses?

 

[riana]

I thought they can be extracted from the source code.

 

[Akuini]

I thought they can be extracted from the source code.

What source code?

 

[Michael M]

@Akuini
I think the OP wants the code to goo to the website>>find the Contact Us email click>> and save it to EXcel range !!!

Good luck with that.....It would be way outside my skill set...

 

[mrshl9898]

Looks like this is what you're after, only returned 7 email addresses from your 20 though.

Looking at the HTML on a few, not all have email addresses, the vba looks for mailto: in the html.

https://www.youtube.com/watch?v=2u81OAthDGQ

 

[Michael M]

well, I'll Be.....didn't think of looking for mailto...

As my tag says...the more I learn......

 

[riana]

Thank you, the macro in the video works quite good! Can I have more results if I subsitute "mailto:" with "@"?