Re: Mail.app (2 questions)
Re: Mail.app (2 questions)
- Subject: Re: Mail.app (2 questions)
- From: Dave Balderstone <email@hidden>
- Date: Wed, 14 Jan 2004 13:11:46 -0600
On 14-Jan-04, at 11:39 AM, David Hanauer wrote:
1) Is there any way to automatically "attach" and then send a file as
an attachment to an e-mail message if the file is not a text file?
Here's a subroutine I use in an AS Studio app for our photographers to
send their pics:
------------
on SendPic(theMessage, the_file, the_subject, theNewName)
tell application "Mail"
activate
try
set the new_message to ,
(make new outgoing message with properties ,
{visible:true, content:theMessage, subject:the_subject})
tell the new_message
make new to recipient at end of to recipients with properties
{address:ToAddress}
tell content
make new attachment with properties ,
{file name:the_file} at before the first character
end tell
end tell
send the new_message
end try
end tell
end SendPic
------------
djb
Dave Balderstone
Director, Production and Creative Services
Western Producer Publications, Saskatoon, SK, Canada
Phone: 306-665-3545 Fax: 306-933-3536
_______________________________________________
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.