Re: Swap Work and Home address script for Entourage X

[Allen Watson]

Title: Re: Swap Work and Home address script for Entourage X

I have what I believe to be the same script, and it works for me in EvX. The script is:

-- Swap Work and Home Addresses
-- © Microsoft Corporation, 2000. All rights reserved.

tell application "Microsoft Entourage"
    set theItems to selection
    repeat with i in the theItems
        if class of i is contact then
            set StartAddress to the (home address of i)
            set DestinationAddress to the (business address of i)
            set the home address of i to DestinationAddress
            set the business address of i to StartAddress
        end if
    end repeat
end tell

On or near 3/20/02 9:03 AM, Jan Martel at [EMAIL PROTECTED] observed:

> I sent Luis my "swap work and home addresses" script off list, he tried it
> and it didn't work. Then I tried again and it didn't work for me either :-(.
> So, anyone have any idea of a source for a X version?
>
> On 3/20/02 7:42 AM, "Luis Vallecillo"  wrote:
>
>> Thanks, but that is the same one I had from Entourage 2001. It doesn’t seem
>> to work under Entourage X though. Does it work for you?
>
> Oops, it did work, but now it doesn't - wonder what messed that up. Maybe
> one of the X updates. Or maybe my memory is wrong, although I really thought
> I'd done it since I moved to X. I did find where I got it - from Mactopia,
> under Downloads, Entourage 2001 Value Add Scripts. Unfortunately, there
> doesn't seem to be a comparable one for X. So I'm sending this back to the
> list to see if Paul or Allen has any idea why the 2001 script doesn't run
> under X. With apologies for my bad memory. :-)
>>
>> Here is what I get:
>>
>>   "Microsoft Entourage got an error: Some parameter was invalid."
>>
>> ________________________________________________________________________
>> Luis Vallecillo    -    http://weborican.com    -    [EMAIL PROTECTED]

--
My web page: <http://home.earthlink.net/~allenwatson/>
My scripts page: <http:homepage.mac.com/allenwatson>
Microsoft MVP for Mac Entourage/Word--<[EMAIL PROTECTED]>