MS Entourage - Script um einen ordner zu sichern

[walti]

Hallo,

ich habe folgendes Problem. Ich brauche ein Applescript das es mir erlaubt einen Ordner mit sagen wir 100 Mail einzeln zu sichern. Wichtig ist es so funktionieren als wenn ich die Mail anklicke und sage sichern unter und dnan nur bestätige.
Es wäre nett wenn mir einer Helfen könnte
gruß
walter

Walter@v-i-s.de

[Jens Hoffmann]

Hallo Walter
Hier das Script. Zuerst kannst Du aus einer Liste den Quellordner (Mailbox) wählen und danach den Zielordner in einem normalen "choose folder"-Dialog.

Grüße Jens


----------
tell application "Microsoft Entourage"
set MailOrdner to folders as list
set MailOrdnerNamen to name of folders as list
set QuellOrdner to (choose from list MailOrdnerNamen without ¨
multiple selections allowed) as text
repeat with n in MailOrdner
if (name of n as text) is QuellOrdner then set g to n
end repeat
set ziel to choose folder
set x to messages of g
repeat with i in x
save i in ziel
end repeat
end tell

[Jens Hoffmann]

Ich habe noch eine Abfrage eingebaut, damit das Script schon abbricht, wenn man bei der Wahl aus der Liste "Abrechen" wählt:

------------
tell application "Microsoft Entourage"
set MailOrdner to folders as list
set MailOrdnerNamen to name of folders as list
set QuellOrdner to (choose from list MailOrdnerNamen ¨
without multiple selections allowed) as text
if not QuellOrdner is "false" then
repeat with n in MailOrdner
if (name of n as text) is QuellOrdner then set g to n
end repeat
set ziel to choose folder
set x to messages of g
repeat with i in x
save i in ziel
end repeat
end if
end tell