Cómo exportar la libreta de direcciones a mailchimp o un archivo CSV?

El siguiente AppleScript va a exportar todos los nombres y direcciones de correo electrónico de los Contactos.app. Fue escrito para OS X 10.9, pero debería funcionar en anteriores ediciones; puede que necesite cambiar Contacts a Address Book hablar a la aplicación correspondiente:

Para utilizar este AppleScript:

1. Inicie el Editor AppleScript de Aplicaciones > Utilidades
2. Copie y pegue el código siguiente en un nuevo documento
3. Ejecutar la secuencia de comandos
4. En la finalización de una contacts.csv aparecerá en su escritorio.

Exportar Contactos a CSV AppleScript

-- Save comma separated values (CSV) file to desktop
set exportPath to (path to desktop as string) & "contacts.csv"

set contactsCSV to "" -- variable to collect rows of addresses
set quoteString to "\"" -- constant to ease concatenation

tell application "Contacts"

    -- Repeat with every person in your Contacts
    repeat with x from 1 to the count of people
        set thePerson to person x
        set theirName to the name of thePerson

        -- A person may have multiple e-mails addresses, add one row for each
        repeat with anEmail in the email of thePerson
            set contactsCSV to contactsCSV & quoteString & theirName & quoteString & "," & quoteString & (value of anEmail) & quoteString & "
"
        end repeat
    end repeat

end tell

-- Write the CSV contents to a file
set exportFile to open for access file exportPath with write permission
set eof of exportFile to 0
write contactsCSV to exportFile starting at eof
close access exportFile