"forward as attachment" must be a choice in Entourage 2004 only, as I
only see "Forward" under "Message" in Entourage X.
It is.
Then there is no answer for X users?
You can just drag the message onto a new message window - it will be
attached exactly as the new command does in 2004.
I thought there was also an existing script to perform this same function,
but I can't find it a scriptbuilders, so here's a new one. Save this script
as a compiled script called "Forward As Attachment\mcF" (without the quotes)
in the folder [~/Documents/Microsoft User Data/Entourage Script Menu Items].
You can then run the script from the script menu or by pressing
control-cmd-F. It will create a new message window with any selected
messages attached.
tell application "Microsoft Entourage"
-- Forward As Attachment v1.0
-- an applescript by Barry Wainwright <mailto:
[email protected]>
-- for Microsoft Entourage vX (Entourage 2004 has a 'Forward as
Attachment' command built in)
-- This script released under a Creative Commons Attribution,
NonCommercial, ShareAlike 2.0 England & Wales License.
-- see <
http://creativecommons.org/licenses/by-nc-sa/2.0/uk/> for full
details
set theMessages to current messages
try
if class of item 1 of theMessages is not incoming message then error
-128
on error
display dialog "Please select one or more messages to forward before
running this script" buttons {"Cancel"} default button 1 with icon stop
end try
set mudTempFolder to ((path to MUD as text) & "Entourage Temp:")
set attachmentList to {}
repeat with aMessage in theMessages
set fileName to my cleanFileName(get subject of aMessage) & ".eml"
set outFile to (open for access (mudTempFolder & fileName) with
write permission)
write (get source of aMessage) to outFile
close access outFile
copy (mudTempFolder & fileName) as alias to end of attachmentList
end repeat
make new draft window with properties {subject:"Forwarded Message(s)",
attachment:attachmentList}
end tell
on cleanFileName(theName)
set oldTIDs to AppleScript's text item delimiters
repeat with aChar in {":", "/", "\\"}
set AppleScript's text item delimiters to {aChar}
set tempText to text items of theName
set AppleScript's text item delimiters to {"-"}
set theName to tempText as text
end repeat
set AppleScript's text item delimiters to oldTIDs
return theName
end cleanFileName