¿Cómo hacer que el primer nombre del destinatario se agregue automáticamente a los nuevos mensajes en Mail.app?

0

Me gustaría que los nuevos mensajes que cree, incluidas las respuestas a los mensajes que recibo, reciban automáticamente un " Hi <name>, " insertado en su primera línea. <name> debe ser el primer nombre del primer destinatario.

¿Cómo puedo crear tal automatización?

    
pregunta GJ. 22.10.2014 - 13:51

1 respuesta

1

Puedes implementar una combinación de correo usando AppleScript. Gianugo Rabellino compartió su AppleScript inicial para crear tales mensajes en Combinación de correspondencia del hombre pobre en Apple Mail .

Los comentarios en la publicación de Rabellino sugieren mejoras y otros enfoques.

tell application "Mail" to set allAccounts to name of every account
choose from list allAccounts with title "Choose the Mail account to use..."
set theAccount to result as string

set subjectDialog to display dialog ¬
    "Enter the subject of the email to send" default answer "no subject"
set theSubject to text returned of subjectDialog

set sendOrPreview to the button returned of ¬
    (display dialog ¬
        "Send the messages right away or preview and send manually?" with title ¬
        "Send or Preview?" with icon caution ¬
        buttons {"Preview", "Send"} ¬
        default button 1)

set theText to (choose file with prompt "Pick a text file containing the email text")

set theContent to read theText

tell application "Finder"
    set addresses to paragraphs of ¬
        (read (choose file with prompt "Pick a text file containing email addresses, one by line"))
end tell

tell application "Mail"
    activate
    set activeAccount to account theAccount
    repeat with i from 1 to (the length of addresses)
        set newMessage to make new outgoing message ¬
            with properties {account:activeAccount, subject:theSubject, content:theContent}
        tell newMessage
            set sender to ¬
                ((full name of activeAccount & " < " & email addresses of activeAccount as string) & ">")
            make new to recipient at end of to recipients ¬
                with properties {address:(a reference to item i of addresses)}
            set visible to true
        end tell
        if sendOrPreview is equal to "Send" then
            send newMessage
        end if
    end repeat
end tell
    
respondido por el Graham Miln 22.10.2014 - 14:21

Lea otras preguntas en las etiquetas