需要VBA代碼中提取電子郵件地址

Question

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 "https://www.amazon.com/gp/pdp/profile/A3NEAETOSXDBOM/" 


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 

我基本上希望檢索其顯示在頁面左側爲網站的電子郵件地址「發送電子郵件」 &電子郵件地址，點擊它後出現。

注意：您必須先登錄才能查看發送電子郵件選項。

請幫忙。

Answer 1

您的結束分之前添加以下代碼：

Set sendAnEmail = ie.Document.getElementsByClassName("a-link-normal pr-email").Item(0) 

sendAnEmail.Click 

Application.Wait Now + TimeSerial(0, 0, 2) 

retrievedEmail = sendAnEmail.innerText 

MsgBox retrievedEmail 

然而，你應該看看亞馬遜的有關Web-刮痧政治，因爲這不可能是100％合法