Search in Outlook for an attachment?

Anyone have any ideas on how to search in Outlook for something? Initiated from VBScript (ideally) or standard VB.

First pass - Search for a subject with "XXX" in it.
Second pass - Search for a message with "XXX" in the body of the message somewhere.
Third pass (and the one I actually want!) - Search for a message with an attachment called "XXX.DOC".

The output can be a simple MsgBox with the subject of the mail message.

Thanks, Chris

It needs changing in order to handle recursion (folders within folders) better. It needs changing to display what its found in a file, rather than in a msg box. However, this .VBS script does look for all attachments of the form 15*.* and 16*.* within the first 3 levels of folders.

If you want to test it, their is a MSGBOX near the beginning thats worth un-commenting.

VB Code:

msgbox "Searching Outlook for certain attachments . . ."
 
'
' First the sub-routine that looks through a specified folder looking for mail
'  items and attachments
'
sub LookThroughFolder (thisFolder)
    if thisFolder.Count > 0 then
    set myItem = thisFolder.GetFirst
' msgbox "IN FOLDER: " & myItem.parent & " ARE " & thisFolder.count & " ITEMS. FIRST ONE IS: " & myItem
'
' Step through all items in that Folder
'
    for k = 1 to thisFolder.count
    if myItem.class = "43" then
        if myItem.attachments.count > 0 then
'
' For any mail item (class 43) with an attachment, check its name
'
            if myItem.Attachments(1) > "15" and myItem.Attachments(1) < "17" then
                msgbox "FOUND IN = " & myItem.Parent & "(IN: " & myitem.parent.parent & ")" & ". SUBJECT = " & myItem & ". ATTACHMENT = " & myItem.Attachments(1)
            end if
        end if
    end if
' 
' Now look at the next item in the folder
'
    set MyItem = thisfolder.GetNext
    next
    end if
end sub
 
'
' Now for the actual code, that steps through your mailbox and .PSTs...
'
set ol = getobject(,"outlook.application")
set mapi=ol.getnamespace("MAPI")
'
' Step through all folders in your profile
'
for i = 1 to mapi.folders.count
'
' Ignore the Public Folders
'
    if mapi.folders(i) <> "Public Folders" then
        set myStore = mapi.folders(i)
        rtn = msgbox ("Store = " & myStore, 1)
        if rtn <> 2 then
            set myFolders = myStore.folders
'
' Step through all folders in that Store
'
            for j = 1 to myFolders.Count
                LookThroughFolder (myFolders(j).Items)
                set mySubFolders = myFolders(j).folders
                for m = 1 to mySubFolders.count 
'
' If we have any sub-folders, look through those.
'
                    LookThroughFolder (mySubFolders(m).items)
                    set mySubSubFolders = mySubFolders(m).folders
                    for n = 1 to mySubSubFolders.count 
'
' If we have any sub-folders of those sub-folders, look through those.
'
                        LookThroughFolder (mySubSubFolders(n).items)
                    next
                next
            next
        end if
    end if
next
 
Msgbox "Ending the search . . ."