473,473 Members | 1,805 Online
Bytes | Software Development & Data Engineering Community
Create Post

Home Posts Topics Members FAQ

htmlbody

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

Feb 20 '08 #1
1 3062
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@uwewrote in message news:7ffe867aa5e39@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

Feb 20 '08 #2

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

6
by: Serge Myrand | last post by:
Hi everybody, It seems that a variable cannot be assign to HTMLBody field. Am'I doing something wrong? - this line write a bold html phrase in the email body ..HTMLBody =...
1
by: Jishnu | last post by:
Hi All, Need CDO help <%@ Language=VBScript %> <% Dim iMsg Dim iConf Dim Flds Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields
5
by: Tom Petersen | last post by:
I have this: 1 emailBody = "<html>" & vbCrLf _ 2 & "<head>" & vbCrLf _ 3 & "<title>Interpreter Request details</title> " & vbCrLf _ 4 ...
3
by: Jeff | last post by:
I am trying to send emails from my application (not using a plugin, that will come later), I can create an email and add attachments. I can fill in the body etc. Word works for the editor. So...
1
by: Pablo | last post by:
Dear all, I have a website where I need to fill its contents after retrieving some data from another system (not a DB, but you can think like it). I know the nature of the data, but the order...
2
by: AWasilenko | last post by:
I can't figure out this problem Im having, I just can't understand why it is ignoring the call I put in. First the code (This is a cherrypy website): import sys, cherrypy, html class Root:...
0
by: =?Utf-8?B?aXZtb3N0?= | last post by:
I am successfully generating and sending emails from my ASP pages using the CDO.Message and CDO.Configuration objects. I noticed that the character string assigned to .HTMLBody is split within...
0
by: novus | last post by:
could anyone tell me if there is anything wrong with this script we seem to be unable to make the script/eventsink work on our exchange2003 server. <SCRIPT LANGUAGE="VBScript"> Sub...
15
by: Earl Partridge | last post by:
If there's a newgroup for this subject, please point me to it... Is it possible to set the font size of the body of the text? Earl
0
marktang
by: marktang | last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
0
by: Hystou | last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...
0
Oralloy
by: Oralloy | last post by:
Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...
0
jinu1996
by: jinu1996 | last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...
0
tracyyun
by: tracyyun | last post by:
Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...
0
by: conductexam | last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and...
0
by: adsilva | last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
0
by: 6302768590 | last post by:
Hai team i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated ...
0
bsmnconsultancy
by: bsmnconsultancy | last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.