Tony,

1. I don't have Outlook Express, so I've only run this with Outlook.
2. I'm using Excel XP (2002?) and haven't tested on any other version. You
don't mention what version of Excel you have. What happened when you tried
to run the code?
3. I'd suggest posting to an Outlook programming group for this, although
I'm sure the answer is already available (try google groups search). In any
case I've no doubt it can be done.

If you're stumped then I may be able to help you offline: mail me at
saxifrax at the domain pacbell dot net.

Cheers
Tim

--
Tim Williams
Palo Alto, CA


"Tony" wrote in message
...
Dear Tim,

Thank you for your reply.

1. I assume that the code only works with Outlook, not Outlook Express ?
2. What version on Excel is needed ? It doesn't run with the VB in the
copy
I have.
3. Do you know how to copy the text from the appachments and append it to
the archive file? Can the data in the attachments be appended to a single
file "C:\QS\QSdata.txt" ?

Many thanks for your help.

Tony


"Tim Williams" <saxifrax@pacbell*dot*net wrote in message
...
Tony,

Try this code - it should scan your Outlook inbox for any mails with
the required subject, process them (no code for that, so maybe you can
fill in there...) and move them to a "Processed" folder in the inbox.

Add a reference to the outlook library in your VBA project.

Tim.


Sub GetOutlookMessages()

Const S_SUBJECT As String = "QSData"
Const ARCHIVE_FOLDER As String = "Processed Mails"

Dim olApp As Outlook.Application
Dim fInbox As MAPIFolder
Dim olFolderArchive As Object
Dim olInboxCollection As Object
Dim olInboxItem As Object
Dim iCount As Integer
Dim l
Dim t
Dim itemCount, i, n

On Error Resume Next
Set olApp = GetObject(, "Outlook.Application")
If olApp Is Nothing Then
MsgBox "Outlook is not running: please open the application
first"
Err.Clear
Exit Sub
End If
On Error GoTo 0

'On Error GoTo haveError

'Get the inbox folder
Set fInbox =
olApp.GetNamespace("MAPI").GetDefaultFolder(olFold erInbox)
Set olInboxCollection = fInbox.Items

itemCount = olInboxCollection.Count

'Look for archive folder.
For i = 1 To fInbox.Folders.Count
If fInbox.Folders.Item(i).Name = ARCHIVE_FOLDER Then
Set olFolderArchive = fInbox.Folders(i)
Exit For
End If
Next i

' Add archive folder if it does not exist.
If olFolderArchive Is Nothing Or fInbox.Folders.Count = 0 Then
Set olFolderArchive = fInbox.Folders.Add(ARCHIVE_FOLDER,
olFolderInbox)
End If

iCount = 0
t = Timer

For n = itemCount To 1 Step -1
Set olInboxItem = olInboxCollection(n)

If StrComp(olInboxItem.Subject, S_SUBJECT) = 0 Then

iCount = iCount + 1
Application.StatusBar = "Processing # " & iCount

'here's where you get the info from the attachment....


'move the item to the "dealt with" folder
olInboxItem.Move olFolderArchive

End If
Next n

haveError:
If Err < 0 Then MsgBox "Error:" & vbCrLf & Err.Description
Application.StatusBar = False

End Sub





"Tony" wrote in message
...
Jim,

I want to process the appended file using Excel.

Tony


"Jim Cone" wrote in message
...
This is an Excel group, so email inbox scanning is not a
much discussed issue. However, this might get you started?...

http://www.xtware.com/filenotify/index.html

Jim Cone
San Francisco, USA


"Tony" wrote in message
...
I need a small application to be developed that :

1. Scans email inbox, for messages with the subject "QSData" (or
title
read
from ini file)
2. Reads the attachment to these messages. The attachment is a
text
file
with several lines of data.
3. Appends the data from the attachment to a file "QSdata.txt"
(or file
name
given in ini file)
4. Asks if the user wishes to delete the messages in the inbox
with
subject
"QS Data"

Can anyone help please?

Thank you,

Tony