read hotmail into excel

RichNL

New Member
Joined
Feb 18, 2005
Messages
14
Does anyone have an idea how to read the emails into excel

I am stuck

In the sourcecode from the inbox it reads something about the readpanel is "hidden"
Anyway, I can loop threw the inbox and display the ones I am interested in, but I can not pull the data from within the email


I hope someone can give me a solution?

Regards,

Richard D
 
Most e-mail systems are not fully POP that is only the index is put on your PC the actual e-mail is on that e-mail systems Server, HotMail is one of these. And, depending on how you read the e-mail, that is which reader you use you may or may not have portions of that e-mail in your PC's temp file.

So, to make long and complicated story shorter, you need to open an e-mail first before you can do anything with it. In most cases you will also need to COPY your selection from that e-mail to the Clip-Board first before you can do anything with it in Excel.
 
Upvote 0
thanks Joe,
I am navigating too hotmail with the browsercontrol
that's all good, sort off..
because it's kind off a problem that you can not really get a handle on the loading off the page, probably something to do with frames

So, Y need a lot off if..then..else statements

anyway, i figured out that you can save the document.body.innerText to a textFile and
from there I can get the data out that finds itself just below the heading "full display".

Now I just need to know how to extract that little piece off information
The actual information is located between the caracters @@ and @@
something with instr?? I don't know just yet

I will try to figure that one out, but if you have any other suggestions that will be more efficient in terms off coding, please


Regards,
Richard
 
Upvote 0
read hotmail into excel/Extract Text

RichNL:

A UDF will do this.
CODE IN Module1:

Option Explicit
Function GetTxt(text1) As String
Dim Len1 As Long
With CreateObject("vbscript.regexp")
.Global = False
.Pattern = "(@@)+.*(@@)+"
If .test(text1) Then
GetTxt = .Execute(text1)(0)
Len1 = Len(GetTxt)
GetTxt = Left(GetTxt, Len1 - 2)
GetTxt = Right(GetTxt, Len1 - 4)
Else
GetTxt = ""
End If
End With
End Function

RESULT:<SCRIPT language=JavaScript src="http://www.interq.or.jp/sun/puremis...[/XD][XH][/XH][/XR][/RANGE][/XH][/XR][/RANGE]
 
Upvote 0
Thanks Jack,

I can use this
It's something different from the Instr function

I also think, that the loading of every email takes some time

I saw something somewhere that is probably a lot more efficient and that is too send something too a website and retrieve the information with the xmlhttp object.
Ofcourse, then i would need a website thirst, but it is something too think about for later on.


Richard
 
Last edited:
Upvote 0

Forum statistics

Threads
1,226,771
Messages
6,192,926
Members
453,767
Latest member
922aloose

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top