VBA code to extract outlook mail to Execl which is ib table format

[dvsrikanth6060]

Hi,

I have outlook email which is in table format and the content in the table has data with Embed Hyperlinks. I tried the below code. I am getting all the data from the table to excel but i am not getting the Embed Hyperlinks. Can you please help in getting the Hyperlinks which are Embed to the data to Excel.

Set oHTML = New MSHTML.HTMLDocument
With oHTML
.Body.innerHTML = item.HTMLBody
Set oElColl = .getElementsByTagName("table")
End With


'import in Excel
For x = 0 To oElColl(0).Rows.Length - 1
For y = 0 To oElColl(0).Rows(x).Cells.Length - 1
FrontEndload = oElColl(0).Rows(x).Cells.innerText
wks.Range("A1").Offset(x, y).Value = FrontEndload
wks.Columns.ColumnWidth = 45

Next y
Next x