Re: Time to figure out what is going on... (results)
Re: Time to figure out what is going on... (results)
- Subject: Re: Time to figure out what is going on... (results)
- From: Glenn Sugden <email@hidden>
- Date: Mon, 22 Aug 2005 00:37:29 -0700
FWIW, it looks like this line isn't working (doesn't open a New
Viewer Window):
click menu item "New Viewer Window" of menu 1 of menu bar item
"File" of menu bar 1
So this:
set the_messages to (every message whose read status is false
and deleted status is false)
Causes the/an error.
Scratching my head,
::Glenn
p.s. I would rather not open up Script Debugger every time I want to
run this script. ;-)
--- open unread messages --
on run
tell application "Mail"
set viewer_count to (count of message viewers)
tell front message viewer to set unread_mailbox_list to get
selected mailboxes
if ((count of unread_mailbox_list) is 0) then
set unread_mailbox_list to (every mailbox whose unread
count > 0)
end if
set unread_mailbox_count to (count of unread_mailbox_list)
repeat with mailbox_index from 1 to unread_mailbox_count
log (name of (item mailbox_index of unread_mailbox_list)
as text)
tell application "System Events"
tell process "Mail"
activate
click menu item "New Viewer Window" of menu 1 of
menu bar item "File" of menu bar 1
end tell
end tell
set single_box_list to {item mailbox_index of
unread_mailbox_list}
tell message viewer (viewer_count + mailbox_index)
set the selected mailboxes to single_box_list
set the_messages to (every message whose read status
is false and deleted status is false)
set the visible messages to the_messages
set preview pane is visible to true
end tell
end repeat
end tell
end run
_______________________________________________
Do not post admin requests to the list. They will be ignored.
Applescript-users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
40aggroculture.com
This email sent to email@hidden
_______________________________________________
Do not post admin requests to the list. They will be ignored.
Applescript-users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
This email sent to email@hidden