htmlbody

[neerak]

Can anyone tell me how to save the hyperlinks in my email inbox to a local
folder using VBA? I am able to retrieve the url for all hyperlinks by the
following codes but having trouble to save the links to a local folder.

For Each itm In MyInbox

strLink = itm.HTMLBody

While InStr(strLink, "<A HREF=") <0
varLen = Len(strLink)
varStart = InStr(strLink, "<A HREF=")
varEnd = InStr(varStart, strLink, ">")

msgbox Mid(strLink, varStart + 9, varEnd - varStart - 10)

strLink = Right(strLink, varLen - varEnd)
Wend

next

Thank you.

neerak

[Larry Linson]

Re: htmlbody

Is this a Microsoft Access database software question? That is the subject
of this newsgroup, but the question would appear to apply to news reader
software.

Larry Linson
Microsoft Office Access MVP


"neerak" <u41505@uwewrot e in message news:7ffe867aa5 e39@uwe...

Can anyone tell me how to save the hyperlinks in my email inbox to a local
folder using VBA? I am able to retrieve the url for all hyperlinks by the
following codes but having trouble to save the links to a local folder.
>
For Each itm In MyInbox
>
strLink = itm.HTMLBody
>
While InStr(strLink, "<A HREF=") <0
varLen = Len(strLink)
varStart = InStr(strLink, "<A HREF=")
varEnd = InStr(varStart, strLink, ">")
>
msgbox Mid(strLink, varStart + 9, varEnd - varStart - 10)
>
strLink = Right(strLink, varLen - varEnd)
Wend
>
next
>
Thank you.
>
neerak
>