Populating the address book?

  • Thread starter Andrew Wickliffe
  • Start date
A

Andrew Wickliffe

I'm trying to populate an empty address book from existing e-mails, is this
possible?

thanks
 
D

Dave Cortright

I'm trying to populate an empty address book from existing e-mails, is this
possible?

thanks
Click to expand...

Select the messages you want them Cmd = to add the sender to the address
book. You can do this with multiple messages selected.
 
A

Andrew Wickliffe

Okey, but is there anyway to populate the address book with all the email
addresses in a particular e-mail? One that was sent batch.

Thanks
 
B

Barry Wainwright

Run this script on a collection of selected messages:
<http://tinyurl.com/6awwk>


In case that link doesn't work for you, here's the full script:

-- Create contacts
-- An AppleScript for Microsoft Entourage
-- Barry Wainwright 3rd September 2004
-- creates a separate contact for each of the recipients of the selected
messages

-- set 'duplicateCheck' to true if you want to check for duplicates
-- before creating a new contact - the script will be a lot slower
set duplicateCheck to false

tell application "Microsoft Entourage"
try
set theMessages to current messages
on error
return
end try
if theMessages is {} then
display dialog "No Messages Selected!" buttons {"Abort"} default
button 1 with icon stop
return
end if
repeat with aMess in theMessages
set therecips to address of recipients of aMess
repeat with aRecip in therecips
try
set firstName to word 1 of display name of aRecip
on error
set firstName to ""
end try
try
set lastName to words 2 thru -1 of display name of aRecip
on error
set lastName to ""
end try
set emailAddress to address of aRecip
if duplicateCheck is true then
set foundContacts to (find emailAddress)
else
set foundContacts to {}
end if
if foundContacts is {} then
set theContact to (make new contact with properties {first
name:firstName, last name:lastName})
make new email address of theContact with properties
{contents:emailAddress, label:home}
--open theContact -- uncomment this line if you want the
created contacts to be opened
end if
end repeat
end repeat
end tell
 
Top