sue
On 12/27/00 9:36 PM, "Paul Berkowitz" <[EMAIL PROTECTED]> wrote:
tell application "Microsoft Entourage"
set s to the selection
repeat with i in s
if class of i is outgoing message then
set s to source of i
set sndr to sender of i
set stor to storage of i
set ts to time sent of i
set tr to time received of i
set c to category of i
set prio to priority of i
set nm to make new outgoing message with properties ¬
{source:s, time sent:ts, time received:tr, read status:read} ¬
& {delivery status:sent, storage:stor, category:c, priority:prio}
set sender of nm to sndr
delete i
try
delete i
on error --
end try
end if
end repeat
end tell
--
PowerBook 3400c/200, 80M RAM with VM on, OS 8.6, a kajillion extensions
