Monday, November 08, 2010 at 12:01 AM.
system.verbs.apps.FinderMenu.commands.sendThruEudora
local (sellist = FinderMenu.getSelectionList ());
if sizeof (sellist) == 0 {
scriptError ("Select one or more folders before choosing this command.")};
Eudora.launch ();
if not dialog.confirm ("Attach the selected files to a new message in Eudora?") {
return};
local (f, attachlist = {});
for f in sellist {
local (attachfile = f);
if file.isFolder (f) {
local (folder = file.folderFromPath (Frontier.getProgramPath ()) + "Email Attachments:");
local (fname = (file.fileFromPath (f) - ":") + ".sit");
file.sureFolder (folder);
attachfile = folder + fname;
stuff.createArchive (attachfile, {f}, false)};
attachlist = attachlist + attachfile};
if sizeof (attachlist) > 0 {
local (x = Eudora.createMessage ());
Eudora.attachFiles (x, attachlist);
Eudora.bringToFront ()};
return (true)
This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.