Re: Another Save As....limitation

[Allen Watson]

Title: Re: Another Save As....limitation

You might like to try my script, "Entourage Many to Word". It soft-wraps the text (removing returns), and you could easily edit it to eliminate the (selected) header lines it now includes. It can save a single file to Word as easily as a group of selected files. See my web page (URL below).

Or, another script saves messages to SimpleText format, with no headers at all, just the body of the message:

"Save Selection As E" This is not yet posted to my web site, I include it below. By “selection” I mean selected <messages>, not text selected within a message. This script saves the entire message, or multiple selected messages.

<http://homepage.mac.com/allenwatson/>

On or near 11/22/00 10:54 PM, Dénes Bogsányi at [EMAIL PROTECTED] observed:

> When you save an e-mail message as Simple Text and then open it in Word you
> get a swag of headers you have to remove. In addition most lines end with a
> carriage return which is a regular pain to get rid of. My understanding has
> been that Entourage is an integral part of MacOffice 2001. In practice it is
> very far from being integrated, more like being shoved together. There are
> features too numerous to list which I have just turned off or ignored
> because of the adverse interactions between Word and Entourage in
> particular.
>
on run
    tell application "Microsoft Entourage"
        activate
        set theMessages to the current messages
        try
            set possSub to subject of (item 1 of theMessages)
            repeat while possSub begins with "re:"
                set possSub to text 4 thru -1 of possSub
                repeat while possSub begins with " "
                    set possSub to text 2 thru -1 of possSub
                end repeat
            end repeat
            if length of possSub > 31 then
                set possSub to text 1 thru 31 of possSub
            end if
        on error theErr
            display dialog theErr
            return
        end try
        set theFile to new file default name possSub with prompt "Choose a folder and name to store your file."
        set fileRef to open for access theFile with write permission
        set eof theFile to 0
        try
            repeat with theMsg in theMessages
                set myTemp to content of theMsg
                write myTemp to fileRef starting at eof
                write "^^^^^*****^^^^^" & return to fileRef starting at eof
            end repeat
            close access fileRef
            display dialog "The file is finished." & return & theFile as string ¬
                buttons {"OK"} default button 1
        on error
            close access theFile
        end try
    end tell
end run
--
Peace,
Allen Watson <[EMAIL PROTECTED]> XNS name: =Allen Watson
A Mac family since 1984 <http://home.earthlink.net/~allenwatson/>
Applescripts for Outlook Express and Entourage: <http://homepage.mac.com/allenwatson/>