Creando una cuenta y enviando correo usando applecript

Question

Creando una cuenta y enviando correo usando applecript

#1 de tubedogg (0 votos)

-1

Estoy tratando de usar applecript para hacer dos cosas:

Crea una cuenta en Mail.app
Usando esa cuenta, envía un correo electrónico en Mail.app

Tengo un problema con la creación de una cuenta en Mail.app principalmente porque no hay un "servidor SMTP", y estoy tratando de usar Yahoo. No importa lo que intente, no puedo hacer que Applescript agregue automáticamente a Yahoo como el servidor saliente smtp. Aquí está mi código:

tell application "Mail"
    set AccountName to "account_name"
    set newacct to make new pop account with properties {name:AccountName, user name:"[email protected]", server name:"mail.yahoo.com"}
    tell newacct
        set password to "ThePassword"
        set full name to AccountName
        set email addresses to {"[email protected]"}
        set port to 995
        set uses ssl to true
    end tell

    set addsmtp to make new smtp server with properties {server name:"smtp.mail.yahoo.com", user name:"[email protected]"}
    tell addsmtp
        set password to "ThePassword"
        set uses ssl to true
        set port to 465
    end tell
    set smtp server of newacct to addsmtp
end tell

applescript mail.app smtp

pregunta erictsai626 14.11.2014 - 18:28

1 respuesta

Lea otras preguntas en las etiquetas applescript mail.app smtp

¿Es posible saber si un disco duro de Macbook se inició internamente o externamente (USB, FireWire, etc.)? ¿Cómo eliminar la extensión de archivo en applescript (en Automator)?

score 0 · Answer 1

Todo lo que he leído (otorgado en su mayor parte, bastante antiguo) indica que debe incluir las palabras "servidor smtp" antes de "addmtp", aunque debería ser bastante obvio desde el contexto.

Aparentemente, también hay un error en la forma en que AppleScript maneja las referencias al nuevo servidor.

Eliminar del primer set smtp server al final de la secuencia de comandos, y reemplazar con esto:

    set smtpservername to "smtp.mail.yahoo.com"
    set smtpusername to "[email protected]"
    set addsmtp to make new smtp server with properties {server name: smtpservername}
    tell addsmtp
        set authentication to password
        set password to "ThePassword"
        set uses ssl to true
        set port to 465
        set user name to smtpusername
    end tell
    set newsmtpserver to smtp server (smtpservername & ":" & smtpusername)
    set smtp server of newacct to smtp server newsmtpserver
end tell