hi,
na super, dann haben wir es ja fast
dann noch den rest:
if copy(Message1.Subject, 0, 4) = 'News' then
um das zu komplettieren:
if (checklistbox1.Items.IndexOf(Message1.Subject) = -1) AND (copy(Message1.Subject, 0, 4) = 'News') then checklistbox1.Items.AddObject(Message1.Subject, Pointer(1))