applescript - 使用 Applescript 分配 Outlook for Mac 类别？

Question

寻找问题的解决方案。不是很喜欢在 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”。如果其中一个类别在运行前不存在，脚本将崩溃。

Answer 1

我知道这是旧的，但脚本有一个小问题。

这一行:

copy the result as list to {the myCategories, the myTagButton}

参数倒过来应该是

copy the result as list to {the myTagButton, the myCategories}

更有用的是根据 Outlook 中可用的类别从列表中选择类别。