AppleScript将Outlook电子邮件移动到文件夹

Question

我使用下面的脚本已经好几个月了，但是最近似乎无法找到我添加到Outlook的任何新文件夹，对于已经存在的文件夹仍然可以正常工作。

该脚本可以很好地用于n层，而无需我明确定义子文件夹。

  on run {}
    tell application "Microsoft Outlook"
        activate
        set messageAccount to first exchange account
        set aMessage to selection
        set messageSender to sender of aMessage
        set senderName to name of messageSender

        try
            move aMessage to folder senderName
        on error
            display dialog senderName & " not found."
        end try

    end tell
end run