在 OSX Microsoft Outlook 15中，给所选的

在 OSX Microsoft Outlook 15中，给所选的邮件添加标签（Category）
tags: macOS, AppleScript, Microsoft Outlook

tell application "Microsoft Outlook"
    
    -- 获取所选邮件
    set selectedMessages to current messages
    
    -- 无邮件选取通知
    if selectedMessages is {} then
        display dialog "NO MESSAGES SELECTED." with icon 1
        return
    end if
    -- 在所选的邮件中重复
    repeat with theMessage in selectedMessages
        -- 给选择的每一个邮件设置标签也就是"Category", 注意这个标签是已经存在于 Microsoft Outlook 中的哦。
        set category of theMessage to {category "TagYouWant"}
    end repeat
end tell

如果你想设置的Category不在 Microsoft Outlook 中怎么办? 你不会想手动在 Microsoft Outlook 中添加的吧？那么试着用下边的脚本吧：

set _categoryName to "YouPreferredCategory"
tell application "Microsoft Outlook"
    try
        -- Getting by name doesn't always work.
        repeat with _category in categories
            if _category's name is _categoryName then return _category
        end repeat
    end try
    make new category with properties {name:_categoryName}
    return category _categoryName
end tell