Am 16 Mar 2006 11:57:49 -0800 schrieb scriptnewbie:

You could search with InStrRev for vbCRLF backwards. For 5 lines you then
need to look for 6 vbCRLF (or 5 if the first of the 5 lines is also the
first line at all).

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --


Hi everyone,

I was hoping that someone would give me an idea how to accomplish this.
I would like to pull out say the last 5 lines of all messages in my
Inbox folder and write them all to a text file. I was thinking about
creating a function and set a Position variable to the end of message,
but no success. I can get the first couple lines with the below
function. But how can I write my code to get the last 5 lines of the
messages. Thnx in advance for your help.

Private Function GetPosition(sBody As String) As Long
Dim p As Long
Dim position As Long
position = 1
For p = 1 To 5
position = InStr(position, sBody, vbCrLf)
position = position + 1
Next
GetPosition = position
End Function