Hello Task,
Do the same using after this piece of code.
S := Trim(UpperCase(GetStr(mpidMessageAttachments)));
El sábado, 15 feb 2003 a las 17:23, escribiste:
> S := Trim(UpperCase(GetStr(mpidMessageSubject)));
> // this is just a sample, it is possible to use virtually all data from a message to
> // analyze it!
> if Copy(S, 1, 4) = 'ADV:' then Result := 70;
if (Pos('TEEN', S) >> 0) or (Pos('PORN', S) >
if (Pos('TEEN', S) >> 0) or (Pos('ADULT', S) >
if (Pos('TEEN', S) >> 0) or (Pos('LOANS', S) >
if (Pos('TEEN', S) >> 0) or (Pos('(GET CASH',
if (Pos('TEEN', S) >> S) > 0)
or (Pos('ADV:', S) >> 0) or (Pos('ENLARGE
or (Pos('ADV:', S) >> YOUR', S) > 0) then Result := 80;
> but for atachments.
-----------------------
........................
/\ /
/ \ / \ /
/ \/ e t \/ i c i o u s
........................
Using The Bat! 1.63 Beta/5 on Windows XP (5.1.2600 Service Pack 1)
________________________________________________
Current version is 1.62 | "Using TBDEV" information:
http://www.silverstones.com/thebat/TBUDLInfo.html
