I am trying to write a script to Forward a selected list of spam to spamcop
as a single E-mail.
I am currently using spamcop's script that sends each spam as a single
message in the body,
This is the part that should make the attachment but doesn't: I have a few
extra lines I was using to troubleshoot this.
tell application "Microsoft Entourage"
activate
set theMessages to the current messages as list
if the (count of theMessages) = 0 then
beep
return
end if
repeat with theMsg in theMessages
(*my ProcessMsg(theMsg)*)
forward theMessages to NewRecipients as attachment
move theMsg to the folder "Deleted Items" (* I added this
11/9/03 *)
(* set connection action of theMsg to remove at next connection
I added this 9/6/05 Delete from server to free up space *)
end repeat
end tell
end run
on ProcessMsg(theMsg)
tell application "Microsoft Entourage"
set theFWDContent to pFwdLine & the source of theMsg (*& the headers
of theMsg & "{{[*-----------====|====-----------*]}}" & return *)
set theFWSSubject to the subject of theMsg
if theFWSSubject does not start with "FW: " then
set theFWSSubject to "FW: " & theFWSSubject
end if
set draftWindow to make new draft window with properties
{subject:theFWSSubject, content:theFWDContent, to recipients:NewRecipients}
set the forwarded of theMsg to true
end tell
end ProcessMsg
--
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/>
