Filtering Emails in Outlook

[rnlockyer]

************************
SubjectText = "Joke"

olFilter = "[Subject] = """ & SubjectText & """"

Set olMailMsgs = olInBox.Items

Set olMailMsg = olMailMsgs.Find(olFilter)

Do While olMailMsg Is Not Nothing
Debug.Print olMailMsg.Subject
Set olMailMg = olMailMsgs.FindNext
Loop

***************************

This will print the subject of each email in InBox that has the subject Joke. But I want to be able to find all emails with 'Joke' in the subject line (ie 'This is a good Joke' or 'Try these Jokes').

I guess I need to set SubjectText with some sort of wildcard character such as ...

SubjectText = "*Joke*"

But I cannot get this to work with Outlook's Items Find method.

Any suggestions?????? Thanks.

[This message has been edited by rnlockyer (edited 11-27-1999).]

[This message has been edited by rnlockyer (edited 11-27-1999).]