У меня есть AppleScript для архивирования сообщения в Outlook 2016 для Mac. Пожалуйста, смотрите ниже. В Outlook 2016 для Mac 16.13 (выпущен в мае 2018 года по каналу Insider Slow) сценарий завершается ошибкой для сообщений во вновь добавленных учетных записях Gmail, когда он пытается получить учетную запись выбранного сообщения / папки (curAccount пропускает значение после set curAccount to account of curFolder
) ,
В этой версии Outlook добавлена поддержка календарей и контактов Google, и вам необходимо удалить и добавить учетную запись Gmail, чтобы получить эту функцию. Сценарий отлично работает для учетных записей Exchange / Office365, а также для учетных записей Gmail, добавленных до обновления до 16.13. Сбой только для новых учетных записей Gmail. Я полагаю, что интеграция с Gmail в новом выпуске Outlook 2016 для Mac теперь выполняется по-другому.
Знаете ли вы обходной путь для этой проблемы? У вас есть пример сценария для получения дескриптора папки в учетной записи Gmail?
AppleScript
tell application "Microsoft Outlook"
set currMsgs to current messages
-- Check to make sure items are selected, if not then quit
if (count of currMsgs) is 0 then
display notification "No message selected" with title "Microsoft Outlook" subtitle "Move to Archive"
return
end if
-- Iterate through selected items
repeat with msg in currMsgs
set curFolder to folder of msg
set curAccount to account of curFolder
if curAccount is missing value then
display dialog ("An error occurred and the messages were not moved " & name of curFolder & " . Done") buttons {"Quit Script"} default button 1 with icon stop
return
end if
set destFolder to folder "Archived" of curAccount
move msg to destFolder
end repeat
-- 1 Notification...
if (count of currMsgs) is 1 then
display notification "One message moved to " & name of curAccount & ":" & name of destFolder with title "Microsoft Outlook" subtitle "Move to Archive"
end if
-- Multi Notification...
if (count of currMsgs) > 1 then
display notification "" & (count of currMsgs) & " messages moved to " & name of destFolder with title "Microsoft Outlook" subtitle "Move to Archive"
end if
end tell