【发布时间】:2011-12-14 18:53:38
【问题描述】:
由于 Apple Mail 中的一个错误,我的 applescript 在同步之前就被挂断了,如果 SMTP 服务器与描述不匹配,它将再次要求输入密码..所以用户必须输入他们的密码并点击确定或在任何事情发生之前进入。 我出现了一个对话框提示,上面写着“在钥匙串中记住密码是个好主意”,然后我在它上面激活了另一个提示,这样他们就无法在不输入密码的情况下点击确定……但这似乎不一致而且瘸。我宁愿想办法让提示不会出现,或者我可以暂停脚本直到输入密码。
--Activate Mail Application
tell application "Mail"
activate "Mail"
display dialog "Welcome to Mailbox setup with Google Mail. Please enter the password for your e-mail when prompted. This should not take any more than a minute."
delay 0.5
--Variables
--Creating account
set email_address to (short user name of (system info)) & "@EMAIL.com"
set full_name to (long user name of (system info))
set mailboxname to (long user name of (system info))
set shortname to (short user name of (system info))
set myPass to text returned of ¬
(display dialog "Enter password for " & ¬
quoted form of shortname ¬
with title ¬
"Gmail" with icon stop ¬
default answer ¬
"" buttons {"Continue…"} ¬
default button 1 ¬
giving up after 5 with hidden answer)
try
set newacct to "imap.gmail.com"
set newacct to make new imap account with properties {name:mailboxname, user name:email_address, password:myPass, uses ssl:true, server name:"imap.gmail.com", port:993, full name:full_name, email addresses:{email_address}}
tell application "System Events" to key code 53
--Create SMTP filter
set addsmtp to "smtp.gmail.com"
set addsmtp to make new smtp server with properties {server name:"smtp.gmail.com", user name:email_address, uses ssl:true, authentication:password, password:myPass}
--Attach SMTP server
set smtp server of newacct to addsmtp
delay 1.0
tell application "System Events" to tell process "Mail"
set frontmost to true
keystroke return
end tell
--Mailbox Sync
delay 0.5
on return
tell application "Mail"
synchronize with account mailboxname
end tell
end try
end tell
【问题讨论】:
标签: applescript