Coding Help
Coding Help
- Subject: Coding Help
- From: Jeff Grossman <email@hidden>
- Date: Wed, 28 May 2003 13:49:28 -0700
I have the following applescript. Just wondering if somebody can take a
quick look at it and see if I can, or need to, consolidate some of the
commands or just refine the script a little bit?
Thanks,
Jeff
set the FishadsAddressFile to open for access "OSX:List Addresses:Fishads
Addresses" with write permission
tell application "LetterRip_Server"
set a_list to subscriber list "Fishads"
set theCount to count of subscribers of a_list
set cur to 1
repeat until cur > theCount
set theSub to subscriber cur of a_list
set theName to name of theSub
set theAddress to email address of theSub
set cur to cur + 1
my WriteFile(FishadsAddressFile, theName, theAddress)
end repeat
end tell
close access FishadsAddressFile
set the HuntadsAddressFile to open for access "OSX:List Addresses:Huntads
Addresses" with write permission
tell application "LetterRip_Server"
set a_list to subscriber list "Huntads"
set theCount to count of subscribers of a_list
set cur to 1
repeat until cur > theCount
set theSub to subscriber cur of a_list
set theName to name of theSub
set theAddress to email address of theSub
set cur to cur + 1
my WriteFile(HuntadsAddressFile, theName, theAddress)
end repeat
end tell
close access HuntadsAddressFile
set the FishReportsAddressFile to open for access "OSX:List
Addresses:FishReports Addresses" with write permission
tell application "LetterRip_Server"
set a_list to subscriber list "Fish Reports"
set theCount to count of subscribers of a_list
set cur to 1
repeat until cur > theCount
set theSub to subscriber cur of a_list
set theName to name of theSub
set theAddress to email address of theSub
set cur to cur + 1
my WriteFile(FishReportsAddressFile, theName, theAddress)
end repeat
end tell
close access FishReportsAddressFile
set the HuntReportsAddressFile to open for access "OSX:List
Addresses:HuntReports Addresses" with write permission
tell application "LetterRip_Server"
set a_list to subscriber list "Hunt Reports"
set theCount to count of subscribers of a_list
set cur to 1
repeat until cur > theCount
set theSub to subscriber cur of a_list
set theName to name of theSub
set theAddress to email address of theSub
set cur to cur + 1
my WriteFile(HuntReportsAddressFile, theName, theAddress)
end repeat
end tell
close access HuntReportsAddressFile
set the NewsAddressFile to open for access "OSX:List Addresses:News
Addresses" with write permission
tell application "LetterRip_Server"
set a_list to subscriber list "News"
set theCount to count of subscribers of a_list
set cur to 1
repeat until cur > theCount
set theSub to subscriber cur of a_list
set theName to name of theSub
set theAddress to email address of theSub
set cur to cur + 1
my WriteFile(NewsAddressFile, theName, theAddress)
end repeat
end tell
close access NewsAddressFile
to WriteFile(myFile, aName, anAddress)
write aName & tab & anAddress & return to myFile
end WriteFile
--
Jeff Grossman (email@hidden)
Director - Information Systems, Turner's Outdoorsman
http://www.turners.com
_______________________________________________
applescript-users mailing list | email@hidden
Help/Unsubscribe/Archives:
http://www.lists.apple.com/mailman/listinfo/applescript-users
Do not post admin requests to the list. They will be ignored.