Hi Sue

This is what I've changed the code to, but it doesn't seem to work.

I was hoping it would flag each email with a yellow flag, but when I
click 'Run' it just disappears and no mails are flagged.


Sub DoSearch()
Dim fld As Outlook.MAPIFolder
Dim itm As Object
Dim strFind As String
On Error Resume Next
Set fld = Application.Session.Folders("BB WEBSITE FORMS")
strFind = "double-sized listing?" & vbCrLf & "Yes"
' or vbLf it's line feed not a complete CRLF
For Each itm In fld.Items
If InStr(1, Item.Body, strFind, vbTextCompare) 0 Then
itm.FlagIcon = olYellowFlagIcon
itm.Save
End If
Next
Set itm = Nothing
Set fld = Nothing
End Sub



Do I need to specify that it's actually a sub-folder within my Inbox?
Or does the macro just look at the folder name and know where in the
Mailbox it's located?
What happens if you have many folders with the same name but in
different locations within your mailbox?


Thanks
Ben


Sue Mosher [MVP-Outlook] wrote:
Every folder has a Folders collection that represents its subfolders. Each subfolder in a Folders collection must have a unique name. Hence, you can use fld.Folders("BB Website Forms").