[EMAIL PROTECTED] wrote:
> Hello list,
>
> I am working on a script to give me a list of emails above a given size,
> and give me an option to delete without retrieving.
> Idealy some part of the actual message should also be read for inspection.
>
> My own best bet was copy/part mailbox, but I get an error like "find expected
> argument of type...". I won't try it again right now as the second time I
> tried it, my machine chrashed :( (that was without the /part refinement
> though).
>
> Any help greatly appriciated
>
Hi :-)
just very primitive, but working example ...
REBOL []
mailbox: open pop://name:[EMAIL PROTECTED]
print [length? mailbox "messages received ..."]
while [not tail? mailbox] [
msg: import-email first mailbox
print copy/part msg/content 300
print newline
action: ask "What to do? (D - delete e-mail C - continue): "
either action == "D" [remove mailbox mailbox: next mailbox] [mailbox:
next mailbox]
]
close mailbox
ah, forgot one condition upon the size of email, so probably (length?
msg/content) > value condition somewhere in the script should be enough ...
-pekr-
>
> Best regards
> Thomas Jensen
