Intente esto, creará un contacto con el nombre, apellido y dirección de correo electrónico adecuados:
tell application "Mail"
set theMessages to selection
if theMessages is not {} then -- check empty list
set theSenderName to extract name from sender of item 1 of theMessages
set nameArray to my split(theSenderName, " ")
set theFirstName to item 1 of nameArray
set theLastName to last item of nameArray
set theEmail to extract address from sender of item 1 of theMessages
tell application "Contacts"
set theGroup to group "_TEST"
set thePerson to make new person with properties {first name:theFirstName, last name:theLastName}
make new email at end of emails of thePerson with properties {label:"Work", value:theEmail}
add thePerson to theGroup
save
end tell
end if
end tell
on split(theString, theDelimiter)
set oldDelimiters to AppleScript's text item delimiters
set AppleScript's text item delimiters to theDelimiter
set theArray to every text item of theString
set AppleScript's text item delimiters to oldDelimiters
return theArray
end split
Hubo algunos problemas con tu intento original, así es como trabajé en torno a ellos.
- Para empezar,
selection te da una lista de elementos (incluso si es solo una lista de uno), así que necesitas elegir el primer elemento de la selección.
- En Mail,
sender te da una cadena no muy útil con el nombre y el correo electrónico combinados. extract name from y extract address from te dan cadenas útiles.
- La cadena de nombre es el nombre completo, pero Contacts.app espera nombres y apellidos separados, así que dividí esa cadena (usando una función práctica encontrada aquí) para hacer una suposición decente de nombres y apellidos. Esto puede dar resultados inesperados con nombres de correo electrónico formateados de manera extraña.
Si tienes algún problema con este, házmelo saber y veré si puedo solucionarlo. En el futuro, puede ser útil ejecutar los scripts en Editor de AppleScript y revisar el Registro de eventos para obtener detalles sobre lo que está fallando (los mensajes de error son útiles, aunque sea para poner en Google o dar a otros un punto de partida para resolver tu problema).
