Apple

I want to remove the list of email accounts:

Hey Marc,

You can save a list of email accounts as type list.

-------------------------------------------------------------------------------------------

set l to {"one", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten"}

set f to (path to downloads folder as text) & "test.lst"

writeFile(l, f, 0, list)

read alias ((path to downloads folder as text) & "test.lst") as list

-------------------------------------------------------------------------------------------

--» HANDLERS

-------------------------------------------------------------------------------------------

on writeFile(srcData, targetFile, startPosition, dataType)

try

set fileRef to open for access targetFile with write permission

if startPosition = 0 then

set eof of fileRef to 0

end if

write srcData to fileRef as dataType starting at startPosition

close access fileRef

on error errMsg number errNum

try

close access fileRef

end try

error "Error in handler: writeFile of library: gen.lib" & return & return & errMsg

end try

end writeFile

-------------------------------------------------------------------------------------------

Or you could use a simple text file containing the account names:

-------------------------------------------------------------------------------------------

set accountList to read alias ((path to downloads folder as text) & "accounts.txt") using delimiter linefeed as «class utf8» -- File containing Mail account names 1 per line.

tell application "Mail"

repeat with i in accountList

set contents of i to account i

end repeat

accountList

end tell

-------------------------------------------------------------------------------------------

Best Regards,

Chris

References:
	>Making a list from external data (From: debt <email@hidden>)