Do you want to archive based on a manual selection, by date, by category?
That's going to be the biggest thing.
One point, as written, that's going to create the archive folder in the account the messages came in to. You may not actually want that if you want a local archive. To guarantee you're looking in the local storage, you use "on my computer" So the basics of what you want is:
tell application "Microsoft Outlook"
set msgSet to the selected objects
if length of msgSet ? 0 then
display dialog "you must select at least one message to run this script"
else
set theArchiveFolder to folder "Archive" of on my computer
repeat with x in msgSet
move x to theArchiveFolder
end repeat
end if
end tell
You can check for that folder via:
tell application "Microsoft Outlook"
if exists folder "Archive" of on my computer then
beep
else
set theArchiveFolder to make new mail folder at on my computer with properties {name:"Archive"}
end if
end tell
and then make the actual archive operation a handler for the script so you can slot it all together. Note that you want to specify mail folder, since on my computer can have multiple folder types.
