SCRIPT: Fix imported sent messages

[David Cortright]

Title: SCRIPT: Fix imported sent messages

There is a bug in the Entourage import code where sent messages imported from Eudora or Netscape are bold (as if they were unread or unsent) and there is no easy way to "unbold" them. This script fixes those messages. If you have made any modifications  to a message in Entourage (edit it, add links, ...) these changes will probably be lost when running this script; it’s best to be used immediately after importing.

tell application "Microsoft Entourage"
    set s to the selection
    repeat with i in s
        if class of i is outgoing message then
           set s to source of i
            set sndr to sender of i
            set stor to storage of i
            set ts to time sent of i
            set tr to time received of i
            set c to category of i
            set prio to priority of i
            
            set nm to make new outgoing message with properties ¬
                {source:s, time sent:ts, time received:tr, read status:read} ¬
                    & {delivery status:sent, storage:stor, category:c, priority:prio}
            set sender of nm to sndr
            delete i
            try
               delete i
            end try
       end if
   end repeat
end tell