Sending files in DT as Entourage attachments

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:


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
					set end of lstFiles to path of oSeln as POSIX file
				end try
			end repeat
		end tell
	end tell
end GetDevnSeldFiles

on SendAsAttached(lstSeldFiles)
	if length of lstSeldFiles > 0 then
		tell application id ""
			tell folder "Drafts"
				set oMsg to make new outgoing message with properties {attachment:lstSeldFiles}
			end tell
			open oMsg
		end tell
	end if
end SendAsAttached

There is a faster way …

Ctrl-Click --> Send by Email