On 11/29/02 8:38 AM, "Mickey Stevens" <[EMAIL PROTECTED]> wrote:
> My mistake; sorry. :-( For some reason I thought you wanted to strip HTML
> even though I read the entire thread!
>
> Try this script by Paul Berkowitz, which was made for forwarding spam but
> should work in the way you want:
Did I write that? (Where - here or in the newsgroup? I should probably tidy
it up fro ASC release.) There are a few 'equals' signs missing in two of
the lines. How did that happen? Maybe a server swallowed them. See below.
>
> ----------Forward Spam-------------------
> property spamDumpBox : ""
> property sendNow : true
>
> if spamDumpBox "" then -- first time only
> display dialog "Enter the email address to forward:" default answer ""
> with icon 1
> set spamDumpBox to text returned of result
> display dialog "Send as soon as they are ready, or
> leave them in the Outbox until the next Send & Receive All schedule?"
> buttons {"Cancel", "Leave in Outbox", "Send Them"} default button 3 with
> icon 1
> --if button returned of result "Cancel" then -- if non-English must
> specify
-- That should read:
if button returned of result = "Cancel" then
> return
> -- else if button returned of result "Leave in Outbox" then
--That should read:
else if button returned of result = "Leave in Outbox" then
> set sendNow to false
> else
> set sendNow to true
> end if
> end if
>
>
> tell application "Microsoft Entourage"
> try
> set theMsgs to (current messages)
> on error
> beep
> display dialog "You must first select a message in the message
> pane."
> return
> end try
> repeat with theMsg in theMsgs
> my ProcessMessages(theMsg)
> end repeat
> if sendNow then send -- just one connection to send all
> end tell
>
> to ProcessMessages(theMsg)
>
> tell application "Microsoft Entourage"
> set {origSubject, origHeaders} to theMsg's {subject, headers}
> set fwdMsg to forward theMsg to spamDumpBox without opening window
> set fwdContent to content of fwdMsg
> set content of fwdMsg to (origSubject & return & return &
> origHeaders & return & return & fwdContent)
> send fwdMsg with sending later -- puts in outbox
> end tell
>
> end ProcessMessages
> ------end script--------------------
--
Paul Berkowitz
MVP Entourage
PLEASE always state which version of Entourage you are using - 2001 or X.
It's often impossible to answer your questions otherwise.
--
To unsubscribe:
<mailto:[EMAIL PROTECTED]>
archives:
<http://www.mail-archive.com/entourage-talk%40lists.letterrip.com/>
old-archive:
<http://www.mail-archive.com/entourage-talk%40lists.boingo.com/>
