Re: [ANN] New, Updated and Converted scripts for EntourageX (mostly) and 2001

[Jan Martel]

Title: Re: [ANN] New, Updated and Converted scripts for Entourage X (mostly) and 2001

On 7/22/02 3:58 PM, "Paul Berkowitz"  wrote:

> Microsoft beat me to it. There's a script called "Swap Work and Home" or
> something like that, that got distributed for Entourage 2001. I think you'll
> still find it at MacTopia, probably at "Downloads" in the Office 2001
> section.

I don't remember where it originally was, perhaps the Value Pack for 2001? But here it is, as a script that runs under EvX. Btw, I think the reason for the swapped addresses is that the Palm handheld only has one address and thinks that one should be the work address (?) so it messed things up if you originally sync'ed from Palm to E'rage - at least it seems to me that the contacts I have with swapped addresses are old ones that I probably originally got into E'rage from the Palm.

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

--
Jan Martel in Davis, CA
IBook 500; System 10.1.5, 9.2.2