Address Book copy and change

Question

Hello there,
I was wondering how I can copy all phone-no. entries of all users and add a new label but keep the existing no. and add a prefix.
Example:
Jon Doe, work:0013051234567 (keep this entry and create a new one: Jone Doe, work-1:999,0013051234567)...
Is this possible and how?

Answer 1

That helped. Try this:property ServicePrefix : "0435269981,"
property ServiceName : "-10881"
tell application "Address Book"
repeat with personEntry in people --in group "Test"
set personID to id of personEntry
repeat with phoneEntry in phones of person id personID
set phoneLabel to label of phoneEntry & ServiceName
--set phoneNumber to value of phoneEntry
set phoneNumber to cleanedUpNumber of me instead of (value of phoneEntry)
if first character of phoneNumber is "+" then
set phoneNumber to ServicePrefix & characters 2 thru length of (phoneNumber)
else
set phoneNumber to ServicePrefix & phoneNumber
end if
make new phone at end of phones of person id personID with properties {label:phoneLabel, value:phoneNumber}
end repeat
end repeat
end tell
on cleanedUpNumber instead of oldNumber
set isPlus to (first character of oldNumber = "+")
set isIntl to ((characters 1 thru 2 of oldNumber) as string = "00")
--if isIntl then display dialog oldNumber & " is Intl"
set isInCountry to (first character of oldNumber = "0" and not isIntl)
--if isInCountry then display dialog oldNumber & " is in country"
set isUnknownType to not isPlus and not isIntl and not isInCountry
if isPlus then return "00" & characters 2 thru (length of oldNumber) of oldNumber
if isIntl then return oldNumber
if isInCountry then return "0041" & characters 2 thru (length of oldNumber) of oldNumber
if isUnknownType then return oldNumber
end cleanedUpNumber
The two dashes "--" make everything in the line after them a comment. That was for my debugging.
Also note that this will fail if there are anything but + or 0 as the first characters. One of my test subjects had (+44). That didn't work as I didn't try to code for it.