Need vba code to extract email address

Private Sub CommandButton2_Click()


Dim ie, items, elem As Object
Dim i, j, k, l As Integer

i = 2
k = 2
l = 2

Set ie = CreateObject("Internetexplorer.application")

ie.Visible = True

ie.navigate "http://ift.tt/1Nnt12A"


Do While ie.busy Or ie.readystate <> 4

Loop

For i = 0 To 500
On Error Resume Next

Range("A" & i).Value = ie.document.getelementsbytagname("a").Item(i).innertext

Next i

End Sub

I am basically looking to retrieve email address from the website which appears in the left of the page as "send email" & email address appears after clicking on it.

Note: You must be logged in to view Send email option.

Please help.