When I used PM in OS9, I remember there were a lot of scripts and a
script site, but I cannot find the links in my files. PM 4 seems to have
imported my version 3 scripts, but I don't know if they work. However,
I'm interested in creating a forward for spam and I have the source for
one for MS Entourage. Can something similar be done for PM? Is there a
script site? BTW, the ctmv web site seems to be down today. No pages
come up.
-- SpamReporter created by Maury McCown (C) 2002.
-- Read through the script and change the items labeled "MODIFY!" to your
liking.
-- Please note: This script works ONLY with Microsoft Entourage.
-- Version 1.4 as of 05-10-2002
-- MODIFY!
-- Add email addresses you would like to send the report to below. Keep
each address in quotations and separate them with commas.
set reportTo to {"[EMAIL PROTECTED]", " "} -- If you have a SpamCop.net
address, add it right after the "[EMAIL PROTECTED]" address.
-- MODIFY!
-- If you want the script to automatically delete the original Spam
message, leave the next line set to true. Otherwise set it to false.
set deleteSpam to true
-- MODIFY!
-- If you want the script to automatically send the report message on its
own, leave AutoSend set to true. Otherwise set it to false.
set AutoSend to true
-- MODIFY!
-- If you want the script to use a specific email address account to send
reports with, set SpecifyAccount to true. Otherwise, it will use your
defaut account.
set SpecifyAccount to false
-- MODIFY!
-- If you DO want the script to use a specific email address account and
you set SpecifyAccount to true, then enter the name of the account below.
set MyAccountName to "?????" -- If you to use a specific email account,
be sure to enter the account's name between the quotes!
-- NO MODIFICATIONS BELOW THIS LINE!!
tell application "Microsoft Entourage"
set selectedMessages to the current messages
if selectedMessages is {} then
display dialog "Please select a message (or messages) and then
run this
script." with icon 2
return
end if
repeat with theMessage in the selectedMessages
set theSubject to subject of theMessage
set theBody to source of theMessage
set theAccount to account of theMessage
if SpecifyAccount then
set MyMessage to make new outgoing message with
properties
{account:POP account MyAccountName, recipient:reportTo, subject:"FWD
SPAM: " & theSubject, content:theBody}
else
set MyMessage to make new outgoing message with
properties
{account:theAccount, recipient:reportTo, subject:"FWD SPAM: " &
theSubject, content:theBody}
end if
delete the attachments of MyMessage
if AutoSend then
send MyMessage
end if
if deleteSpam then
delete theMessage
end if
end repeat
end tell
--
Jefferis Kent Peterson
www.PetersonSales.net
Flash, Web Design and Marketing
ICQ 19112253
_______
"Happy is the person who finds wisdom, and the one who gets
understanding, for the gain from it is better than gain from silver and
its profit better than gold." - Proverbs 3:13,14.
