PleasureKevin fucked around with this message at 21:16 on Oct 17, 2014

Doc Block fucked around with this message at 21:23 on Oct 17, 2014

brap fucked around with this message at 01:22 on Oct 18, 2014

brap fucked around with this message at 20:15 on Oct 18, 2014

pokeyman fucked around with this message at 20:22 on Oct 18, 2014

Dessert Rose fucked around with this message at 06:13 on Oct 19, 2014

 

-- Script to install a new POP (or IMAP) account on Mail
-- This script has only been tested for POP on Leopard
-- Old Mail folders will be renamed if no account is detected
-- Setting delete mail to false is the safest way to start
-- It is more secure to insert passwords when Mail is first used
-- Password for test account is: dumpty
 
-- Mail plist file location:
set plistFile to "~/Library/Preferences/com.apple.mail.plist"
-- For Mountain Lion change the above to:
-- ~/Library/Containers/com.apple.mail/Data/Library/Preferences/com.apple.Mail.pli st
 
-- Account details:
set accountName to "lavabit"
set accountUser to "humpty"
set accountServer to "lavabit.com"
set accountPort to 995 -- do not quote
set accountSSL to true -- do not quote
set accountType to "pop"
set fullName to "Humpty Dumpty"
set emailAddress to "humpty@lavabit.com"
set deleteMail to false -- do not quote
 
-- Optional SMTP account details - not always easy to add later:
set smtpUser to "humpty"
set smtpServer to "lavabit.com"
set smtpPort to 465 -- do not quote
set smtpSSL to "YES"
set useAuthentication to "YES"
set smtpAuth to "PASSWORD" -- do not change this to your password
 
tell application "Mail"
  if not (first account exists) then
  try
                              do shell script "killall Mail; p=" & plistFile & ";
                              f(){ mv $1 $1-`date +%Y%m%d%H%M%S` || :; }; f ~/Library/Mail; f $p; printf \"
<?xml version='1.0' encoding='UTF-8'?>
<!DOCTYPE plist PUBLIC '-//Apple//DTD PLIST 1.0//EN' 'http://www.apple.com/DTDs/PropertyList-1.0.dtd'>
<plist version='1.0'>
<dict>
<key>MailAccounts</key>
<array>
<dict>
<key>AccountName</key>
<string>delete me</string>
<key>AccountType</key>
<string>POPAccount</string>
</dict>
</array>
</dict>
</plist>
\" >> $p"
  end try
  end if
  set stopScript to false
  if account accountName exists then
                    display dialog "Account '" & accountName & "' already exists. Either backup its emails and delete it or change one of the names." buttons {"Stop script"} with icon stop
  set stopScript to true
  else
  repeat with accountNumber from 1 to count of accounts
  if (user name of account accountNumber = accountUser and server name of account accountNumber = accountServer) then
                                        display dialog "Your existing '" & name of account accountNumber & "' account already has user name '" & accountUser & "' and server name '" & accountServer & "'. Either backup this account's emails and delete it or change one of the above names." buttons {"Stop script"} with icon stop
  set stopScript to true
  return
  end if
  end repeat
  if stopScript is false then
  if accountType = "pop" then
  set alpha to make new pop account with properties {name:accountName, user name:accountUser, server name:accountServer, port:accountPort, uses ssl:accountSSL, full name:fullName, email addresses:emailAddress, delete mail on server:deleteMail}
                              else if accountType = "imap" then
  set alpha to make new imap account with properties {name:accountName, user name:accountUser, server name:accountServer, port:accountPort, uses ssl:accountSSL, full name:fullName, email addresses:emailAddress}
  else
  set stopScript to true
                                        display dialog accountType & " Ensure that 'accountType' is set to \"pop\" or \"imap\"." buttons {"Stop script"} with icon stop
  end if
  if stopScript is false then
                                        if account "delete me" exists then delete account "delete me"
                                        try
                                                  do shell script "killall Mail"
  end try
  end if
  end if
  end if
end tell
if stopScript is false then
  set smtpDetails to {|AccountName|:accountName, |AccountType|:"SMTPAccount", |Hostname|:smtpServer, |SSLEnabled|:smtpSSL, |ShouldUseAuthentication|:useAuthentication, |Username|:smtpUser, |AuthenticationScheme|:smtpAuth, |PortNumber|:smtpPort}
          tell application "System Events"
  tell property list file plistFile
                              tell property list item "DeliveryAccounts"
  make new property list item at beginning with properties {kind:record, value:smtpDetails}
  end tell
  end tell
  end tell
  tell application "Mail"
  set smtp server of alpha to smtp server accountName
  end tell
end if

 error "System Events got an error: Can’t get property list item \"DeliveryAccounts\" of property list file \"~/Library/Containers/com.apple.mail/Data/Library/Preferences/com.apple.mail.plist\"." number -1728 from property list item "DeliveryAccounts" of property list file "~/Library/Containers/com.apple.mail/Data/Library/Preferences/com.apple.mail.plist”

Slamma Jamma! fucked around with this message at 19:43 on Oct 19, 2014

Doh004 fucked around with this message at 21:09 on Oct 20, 2014