Set destFolder to folder 'Archiv' of thisRoot If name of theFolder is 'Posteingang' then (* find the particular folder I want to put all the messages in *) Set thisFolders to mail folder of thisAccount Set thisAccount to exchange account 'xing' Set ( is read ) of theMessage to true move theMessage to destFolder If name of theFolder is 'Posteingang' then set thisRoot to theFolderĮnd if end repeat set destFolder to folder 'Archiv' of thisRoot (* find the particular folder I want to put all the messages in *) repeat with theFolder in thisFolders
Tell application 'Microsoft Outlook' set thisAccount to exchange account 'xing' set thisFolders to mail folder of thisAccount
