Estoy generando correos electrónicos (sin enviarlos automáticamente) con el siguiente AppleScript y me gustaría reemplazar la long_ugly_url con un enlace de texto en el correo electrónico, pero no estoy seguro de cómo hacerlo.
set theList to {{name:"John", email:"john@example.org", address:"Street Address, Pensacola, FL 32505"}, {name:"Janice", email:"Janice@example.org", address:"Street Address, New York, NY 10019"}--etc}
set theSubject to "¿Esta sigue siendo una buena dirección de envío?"
repeat with a from 1 to length of theList
set cur to item a of theList
set theBody to "Hola " & nombre of cur & ", blablabla" & return & "long_ugly_url"
set theAddress to email of cur
tell application "Mail"
set theNewMessage to make new outgoing message with properties {sender:"Yo ", subject:theSubject, content:theBody & return & return, visible:true}
tell theNewMessage
set visibile to true
make new to recipient at end of to recipients with properties {address:theAddress}
end tell
end repeat¿Sugerencias, direcciones?
¡Muchas gracias!
