Re: Import Fix Script

[Paul Berkowitz]

Title: Re: Import Fix Script

On 12/27/00 9:02 PM, "Sue Freeman" <[EMAIL PROTECTED]> wrote:

> No luck!  I didn’t try to quote the original script cleanly because I figured
> that something had been discovered earlier.  The script you sent in HTML fails
> exactly as described earlier.  I’m running Script Editor 1.1.3 in OS 8.6 —
> could that be the problem?

Yes! Not exactly a problem, but David evidently wrote this on OS 9. In the compiled, saved script, it will work fine in OS 8.x. But if you’re compiling it yourself in a script editor, you have  add ‘on error’ on a line of its own before the ‘end try’. Even if David actually did that, it would have disappeared when he compiled it in OS 9, but still work in OS 8.x (Hint to scripters: if you think that users may be compiling your script, add a double-dash after the ‘on error --’ Then it won’t disappear when you compile in OS 9 and will still work if recompiled in 8.x.)

This will work, Sue:

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


-----------------



--
Paul Berkowitz