On 6/12/02 3:20 PM, "Paul Berkowitz" <[EMAIL PROTECTED]> wrote:
> On 6/12/02 11:22 AM, "Julian Vrieslander" <[EMAIL PROTECTED]> wrote:
>
>> How do you print an incoming email message with all headers?
>>
>> Print command from the message window (with or without headers pane
>> expanded) gives only partial headers on the printed page. Print command
>> from the View Source window does not work at all.
>>
>> I can copy/paste to another program and print from there. But is there no
>> way to do it within Entourage?
>
> By an AppleScript workaround (in Entourage X, where you can't print the
> Source window):
>
> tell application "Microsoft Entourage"
> set theMsg to item 1 of (get current messages) -- *
> set theSource to source of theMsg -- only works for saved messages
> set theContent to content of theMsg
> set content of theMsg to theSource
> print theMsg
> set content of theMsg to theContent
> end tell
This works fine - it prints out the long headers plus content. But it also
prints out the short headers (redundantly) in the usual large and bolded
text at the top of the page. Usually a waste of page space. I wish
Entourage had an option to suppress that when I don't want it.
> tell application "Microsoft Entourage"
> set theMsg to item 1 of (get current messages)
> tell theMsg
> set {theSubject, theHeaders, theContent} to the {subject, headers,
> content}
> end tell
> set noteContent to theHeaders & return & return & theContent
> set newNote to make new note with properties {name:theSubject,
> content:noteContent}
> open newNote
> end tell
>
>
> That will print just what you want: the headers plus the content in plain
> text, no massive HTML code. Print this note. And the original message stays as
> it was.
The downside of this script is that I have to save the note before I print
it, then navigate to the Notes view and delete it. And, like the first
script, it prints redundant header text that I do not need.
I tried a simple script to move the stuff to a BBEdit window:
tell application "Microsoft Entourage"
set theMsg to item 1 of (get current messages)
set theHeaders to headers of theMsg
set theContent to content of theMsg
set theText to theHeaders & return & return & theContent
tell application "BBEdit 6.5"
make window with properties {text:theText}
end tell
end tell
This seems to give exactly what I want. A text window with full headers,
message content, and no extra frufru. I can save it or print it from
BBEdit. The only drawback to this script is that for some messages it seems
to uncover MIME codes (or some other encodings). Is there a way to deal
with this? I'm pasting a sample below, but I don't know if the codes will
show. What I am seeing is sequences where the equals sign is followed by a
number.
>>>>>
On 6/12/02 2:48 PM, "Beth Rosengard" <[EMAIL PROTECTED]> wrote:
> I just did a View>Source and was able to print that window with no proble=
m
> ... in OS 9.1, Entourage 2001.
>=20
> Beth
>=20
>=20
> On 6/12/02 11:22 AM, "Julian Vrieslander" <[EMAIL PROTECTED]> wrote:
>=20
>> How do you print an incoming email message with all headers?
>>=20
>> Print command from the message window (with or without headers pane
>> expanded) gives only partial headers on the printed page. Print command
>> from the View Source window does not work at all.
>>=20
>> I can copy/paste to another program and print from there. But is there =
no
>> way to do it within Entourage?
--=20
Julian Vrieslander <[EMAIL PROTECTED]>
>>>>>>
--
Julian Vrieslander <[EMAIL PROTECTED]>
--
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/>
