Code AppleScript aux messages en boucle dans Entourage et les supprimer

Question

J'ai écrit simple AppleScript qui fait une boucle indéfiniment dans Entourage Boîte de réception et obtient des sujets de « non lus » Messages:

tell application "Microsoft Entourage"
activate

repeat with eachMsg in messages of folder named "Inbox"
    if read status of eachMsg is untouched then
        set messageSubject to subject of eachMsg as string

        -- bla bla bla

        -- How to delete the message and proceed with the next one???
    end if

end repeat

Maintenant, le problème est, je veux supprimer les messages après avoir fait l'objet. Comment puis-je faire ceci? Pourriez-vous s'il vous plaît écrivez-moi un exemple?

Merci encore!

Answer 1

Une fois que vous supprimez un message, vous avez changé la longueur de la liste des messages, donc à un moment donné, vous allez rencontrer un indice qui n'existe plus parce que vous avez supprimé les messages assez. Pour contourner ce problème, vous devez (essentiellement) coder en dur le boucle; obtenir le nombre de messages, et commencer à partir du dernier message et se déplacer à partir de là. Même si vous avez supprimé un message, les indices ci-dessus l'actuel sera toujours intacte. Mais non testé est un modèle que je l'ai utilisé ailleurs ...

tell application "Microsoft Entourage"
activate
set lastMessage to count messages of folder named "Inbox"
repeat with eachMsg from lastMessage to 1 by -1
    set theMsg to message eachMsg of folder named "Inbox"
    if read status of theMsg is untouched then
        set messageSubject to subject of theMsg as string

        -- bla bla bla

        -- How to delete the message and proceed with the next one???
    end if

end repeat

La syntaxe « pratique » de Applescript est parfois pas, et voilà pourquoi je l'habitude d'éviter complètement.

Answer 2

Voici un snippit d'un exemple sur la page d'aide de Microsoft Entourage (en particulier le script "Messages Nuke"):

repeat with theMsg in theMsgs
    delete theMsg -- puts in Deleted Items folder
    delete theMsg -- deletes completely
end repeat