Re: Attachments im Mail.app
Re: Attachments im Mail.app
- Subject: Re: Attachments im Mail.app
- From: Rob Jorgensen <email@hidden>
- Date: Fri, 27 Jun 2003 14:36:31 -0400
At 2:56 PM -0300 6/27/03, Marcus Rodrigues wrote:
Has anyone ever made a script to handle Maill.app attachments?
I need some help in this, since I tryied and got no success....
What i need is to copy the attachments of a message to a especific folder....
This might provide a starting point.
At 10:36 AM +0000 3/21/03, in a message titled "SOLVED! -- Saving
Attachment from Mail.app", John Delacour wrote:
tell application "StuffIt Expander" to run
set _ticks to {}
set t to (the ticks)
set f to "" & (path to "desk") & "temp.txt"
set fPosix to POSIX path of f
--return fPosix
tell application "Mail"
selection
first item of result
set s to source of result
end tell
set end of _ticks to {"Get source: " & ((the ticks) - t)}
try
close access file f
end try
open for access file f with write permission
set eof file f to 0
-- write with UNIX line endings
write s to file f as string
close access file f
-- change line ending to cr
(*
do shell script "perl -e'
open F, qq~" & fPosix & "~ or die $! ;
for (<F>) {push @lines, $_}
open F, qq~>" & fPosix & "~ or die $! ;
for (@lines) {chomp, print F qq~$_\\015~}
'"
*)
set end of _ticks to {"Write file: " & ((the ticks) - t)}
--return read alias f
tell application "StuffIt Expander"
Expand {alias f} Destination (path to desktop)
end tell
set end of _ticks to {"Expand file: " & ((the ticks) - t)}
_ticks
--> {{"Get source: 2"}, {"Write file: 11"}, {"Expand file: 38"}}
--
Rob Jorgensen
Ohio, USA
_______________________________________________
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.