寻找问题的解决方案。不是很喜欢在 Outlook 界面中如何分配所有鼠标移动和其他东西的类别，那么如何使它与 Applescript 一起工作？
对于那个问题，我创建了这个 Applescript 以允许您为选定的消息分配多个类别，然后将消息移动到与消息发送年份对应的文件夹中。
display dialog ("Enter Category...") ¬
default answer "" buttons {"Tag & Move", "Tag", "Cancel"} default button "Tag & Move"
copy the result as list to {the myCategories, the myTagButton}
if myTagButton is "Cancel" then
return
end if
--- Get comma separated string and convert to list
set old_delimiters to AppleScript's text item delimiters
set AppleScript's text item delimiters to {", "}
set category_list to text items of myCategories
set AppleScript's text item delimiters to old_delimiters
--- Set category to each item of list
tell application "Microsoft Outlook"
--- The set category needs a special list to work with multiple tags...
--- Create a list {category "tag1", category "tag2", ...}
set my_categorylist to {}
repeat with categoryitem in category_list
set end of my_categorylist to category categoryitem
end repeat
--- apply the list of categories to all selected messages
--- set category of (item 1 of (get current messages)) to my_categorylist
set msgSet to current messages
if msgSet = {} then
error "No messages selected. Select at least one message."
error -128
end if
repeat with aMessage in msgSet
set category of (item 1 of aMessage) to my_categorylist
--- Move the message if so told by first dialog
--- I file by year, so get the date the message was sent and move it there
if myTagButton is "Tag & Move" then
set theDate to time sent of aMessage
set theYear to year of theDate as string
move aMessage to mail folder theYear
end if
end repeat
end tell
类别在对话框中输入为“foo, bar”，不带引号。如果其中一个类别在运行之前不存在，则脚本将失效。