Re: Eudora: Generate html email
Re: Eudora: Generate html email
- Subject: Re: Eudora: Generate html email
- From: John Delacour <email@hidden>
- Date: Fri, 9 Aug 2002 23:38:36 +0100
At 10:07 PM -0700 8/8/02, David Crowe wrote:
Someone on this list referred to the ability to create a Eudora
email using your own generated html code. What is the secret to
creating an email by feeding raw HTML to Eudora?
This script will create a personality to send pasted html. You are
responsible for the validity of the syntax.
The script also creates a message which it sends to a new folder in
your documents folder as a UUCP D. file. You can forget the X. file.
The script changes your editor to Eudora and you can change this back
from the message when you open it. (TBB6 for TE+, R*ch for BBEdit,
Stl for Style)
Send the message, switch to the Finder and double-click on D.junk0001
etc. This will open as a mailbox containing the message. You will
want to the delete the mailboxes when the trial is over.
I've done this in OS 9.2 with Eudora 5.2 but the Eudora stuff will
work with Eudora from 2.4 to 5.1 including the version for u/s X.
The Finder stuff might not work in X but it probably will.
JD
(* Copyright EREMITA - NOT TO BE WWWEBBED *)
set pName to "Send_HTML" -- ** case sensitive! **
set fName to "eujunk"
set d to "" & (path to +constant afdrdocs;)
set eujunk to d & fName
tell application "Finder"
if not (exists item (d & fName)) then
(* Create the folder 'eujunk' in the Documents folder *)
make folder at folder d with properties {name:fName}
end if
end tell (* Tell the finder to open the new folder's window*)
tell application "Finder" to open item eujunk
tell application "Eudora"
set edtr to get setting 10
set setting 10 to "CSOm" (* make files as mailboxes *)
personality pName exists
if the result is false then
set name of (make personality) to pName
end if
set p to a reference to personality pName
tell p (* Set up the personality to send to the desktop *)
set sSMTP to "!junk!" & eujunk & ":!my!0000"
set setting 9014 to "html"
set setting 4 to sSMTP
end tell (* Create a message using the new personality *)
set m to make message at end of mailbox 2
tell m
set its personality to p
set field "To" to "me@"
set field "Subject" to "test"
set field "" to "
<html><font color=\"#bb0000\" size=\"+3\" face=\"Georgia\"><b><div>
Hello! Send me; then open the D. file in the window
'eujunk' in the Finder.
</div><div>
<a href=\"x-eudora-setting:10=ttxt\">
Click here to revert to TeachText</a>
</b></font></html>"
activate
end tell
end tell
_______________________________________________
applescript-users mailing list | email@hidden
Help/Unsubscribe/Archives:
http://www.lists.apple.com/mailman/listinfo/applescript-users
Do not post admin requests to the list. They will be ignored.