On 9/1/07 06:58, "Bonnie Wasser" <[EMAIL PROTECTED]> wrote:
> I'm trying out an email newsletter service, which of course is more PC than
> mac oriented, but not impossible. I want to export only a few contacts from
> my entourage contact list, and only a few fields (names and email
> addresses). I tried highlighting about 5 names to try it out, and my entire
> list of 6--+ ended up being exported with every single field including
> comments which I definitely don't want to send out as they are confidential.
> Is there a way to just export a selection of names and a selection of
> fields? I only exported to a file to store them, and didn't get so far as
> to upload them to this email service as I don't want to upload all of my
> data.
>
> Would it work better in mail? I guess I could export everything to mail if
> it can handle this task better. All of my entourage data, by the way was
> IMPORTED using outlook2mac so it appears to be in .txt form.
>
> Thanks.
> Bonnie Wasser
>
>
>
This script will export to an excel spreadsheet 'first name', 'last name'
and 'default email address':
tell application "Microsoft Entourage"
try
set theSelection to selection
if class of item 1 of theSelection contact then error -128
on error
display dialog "Please select one or more contacts before running
this script" buttons {"Abort"} default button 1
return
end try
set exportList to {{"First Name", "Last Name", "Default Email Address"}}
repeat with anItem in theSelection
tell anItem
copy {first name, last name, contents of default email address}
to end of exportList
end tell
end repeat
end tell
tell application "Microsoft Excel"
activate
make new workbook
set name of active sheet to "Exported Contacts"
set theRange to get resize range "A1" row size (count exportList) column
size (count item 1 of exportList)
set value of theRange to exportList
set the view of window 1 to normal view
set the display page breaks of the active sheet to false
autofit theRange
autoformat theRange format range autoformat classic 3
end tell
--
Barry Wainwright
Microsoft MVP (see http://mvp.support.microsoft.com for details)
The Entourage User's WebLog has moved!
For hints, tips and troubleshooting go to <http://www.barryw.net/weblog/>
