How to get email address from websites using Excel

For more help visit my website or email me at easyexcelanswers@gmail.com.

Contact me regarding customizing this template for your needs.

Click for online Excel Consulting

I am able to provide online help on your computer at a reasonable rate.

Check out my next one-hour Excel Webinar

I use a Blue condensor Microphone to record my videos, here is the link

Check out Crowdcast for creating your webinars

If you need to buy Office 2019 follow

I use Tube Buddy to help promote my videos
Check them out

Follow me on Facebook

TWEET THIS VIDEO

Follow me on twitter
easyexcelanswers

IG @barbhendersonconsulting

You can help and generate a translation to you own language

*this description may contain affiliate links. When you click them, I may receive a small commission at no extra cost to you. I only recommend products and services that I’ve used or have experience with.

Sub getemailfromwebsite()
Dim ie As internetExplorer
Dim url As String
Dim x As Long
Dim html As htmldocument
Dim ElementCol As Object
Set html = CreateObject(“htmlfile”)
Application.ScreenUpdating = False
Set ie = CreateObject(“internetexplorer.application”)
ie.Visible = False
x = 2
Do While Sheet1.Cells(x, 1) (not equal to) “”
url = Sheet1.Cells(x, 1)
‘url = ”
ie.navigate url
Do While ie.readystate(not equal to)readystate_complete
Application.StatusBar = “loading website…”
DoEvents
Loop
Set html = ie.document
Set ElementCol = html.getElementsByTagName(“a”)

For Each link In ElementCol
If InStr(link, “mailto:”) Then
Cells(x, 2).Value = link
Cells(x, 2) = Right(link, Len(link) – InStr(link, “:”))
Cells(x, 2).Columns.AutoFit
End If
Next
x = x + 1

Loop
Set ie = Nothing
Application.StatusBar = “”
Application.ScreenUpdating = True
End Sub

Not equal to is the less than and greater than symbol – not allowed in the description

Watch more new videos about Excel Office | Synthesized by Mindovermetal English