>* Write a slightly more complicated script that would, when new mail
>arrives for "Doug," actually _create_ an applet in the Finder folder. Of
>course, then you'd have to delete it, wouldn't you? Hmmmm . . . .
anyone ? how to tell an applet to delete itself?
>
>Oh well, 'tis an interesting challenge. . . . And it reminds me of how
>much I liked having email in "real" folders, with messages as "real"
>files (which I could read with BBEdit if I wanted to) --- back in the
>days of EMailer 1.
this is what i have so far:
property WatchedFolders : {"Evan", "Doug", "Karen", "Alanna"}
tell application "Claris Emailer"
set UnreadFolders to the name of folders where has unread messages is
true
ignoring case
repeat with x from 1 to the (number of items of UnreadFolders)
if item x of UnreadFolders is in WatchedFolders then
set Foldername to item x of UnreadFolders
tell application "Finder"
if not (exists file ("Mooch:Desktop Folder:" &
Foldername & " has
mail!")) then
duplicate alias "Mooch:Desktop
Folder:Email Alert" returning NewApp
store script SetEmailAlert in (NewApp
as alias) replacing yes
set the name of NewApp to Foldername &
" has mail!"
--set the icon
--set the location
end if
end tell
end if
end repeat
end ignoring
end tell
script SetEmailAlert
global Foldername
tell application "Claris Emailer" to open folder Foldername
--tell application "Finder" to move me to the trash
end script
___________________________________________________________________________
To unsubscribe send a mail message with a SUBJECT line of "unsubscribe" to
<[EMAIL PROTECTED]> or <[EMAIL PROTECTED]>
