I’m regularly having to send selected files in a DT database as Entourage attachments.
There may well be a quicker way, but I am currently using something like this:
SendAsAttached(GetDevnSeldFiles())
on GetDevnSeldFiles()
tell application id "com.devon-technologies.thinkpro2"
tell front window
set lstSeln to selection as list
set lstFiles to {}
repeat with oSeln in lstSeln
try
set end of lstFiles to path of oSeln as POSIX file
end try
end repeat
lstFiles
end tell
end tell
lstFiles
end GetDevnSeldFiles
on SendAsAttached(lstSeldFiles)
if length of lstSeldFiles > 0 then
tell application id "com.microsoft.Entourage"
tell folder "Drafts"
set oMsg to make new outgoing message with properties {attachment:lstSeldFiles}
end tell
activate
open oMsg
end tell
end if
end SendAsAttached
