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:
[TABLE="width: 365"]
<colgroup><col></colgroup><tbody>[TR]
[TD]http://www.malerbetrieb-bremer.de/[/TD]
[/TR]
[TR]
[TD]http://www.ehr-malerbetrieb.de/[/TD]
[/TR]
[TR]
[TD]http://www.malermeister-lalla.de/[/TD]
[/TR]
[TR]
[TD]http://www.dressler-mehlhose.de/[/TD]
[/TR]
[TR]
[TD]http://maler-wierig.de/[/TD]
[/TR]
[TR]
[TD]http://www.malermeister-poitz.de/[/TD]
[/TR]
[TR]
[TD]http://www.maler-schuster-wilthen.de/[/TD]
[/TR]
[TR]
[TD]http://www.malermeister-g-sturm.de/[/TD]
[/TR]
[TR]
[TD]http://www.maler-schaettler.de/[/TD]
[/TR]
[TR]
[TD]http://www.maler-neugersdorf.de/[/TD]
[/TR]
[TR]
[TD]http://www.maler-lecke.de/[/TD]
[/TR]
[TR]
[TD]https://www.maler-knoepper.de/[/TD]
[/TR]
[TR]
[TD]http://www.maler-mittelhessen.de/[/TD]
[/TR]
[TR]
[TD]http://www.maler-mittelhessen.de/[/TD]
[/TR]
[TR]
[TD]http://www.beton-statt-fliesen.de/[/TD]
[/TR]
[TR]
[TD]http://www.dirk-grosshaus.de/[/TD]
[/TR]
[TR]
[TD]http://www.maler-robert.de/[/TD]
[/TR]
[TR]
[TD]http://maler-orak.de/[/TD]
[/TR]
[TR]
[TD]http://www.ruehlfernwald.de/
[TABLE="width: 365"]
<tbody>[TR]
[TD="width: 365"]http://www.kleinundhoessler.de/[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[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 "@"?