loOutlook = createobject('outlook.application') loNamespace = loOutlook.GetNameSpace("mapi") loTaskbox = loNamespace.GetDefaultFolder(6) && task folder loitems = lotaskbox.Items for v = 1 to loitems.count loItem = loitems.item(v) with loItem DO CASE CASE .subject = 'RE: Hanger Booked into System' ? "Extracting Mail: ", loitem.subject OTHERWISE ? "Deleting Mail: ", loitem.subject loItem.Delete() ENDCASE endwith endforMany Thanks