[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

(DTPtechNote:1696) mailの転送が10.5で駄目になりました

10.4では動作していましたAppleScript が10.5で動作しなくなりました。原因が全く分かりません。
PCに新着メールがくると件名のみ携帯に転送するAppleScript です。(本文も転送するのはルールでできるのですが、仕事柄添付ファイルが多いため出来ません)
AppleScript は下記の通りです。

on perform_mail_action(info)
	tell application "Mail"
		set getNewMails to |SelectedMessages| of info
		repeat with eachNewMail in getNewMails
			(* set fromSender to sender of eachNewMail *)
			set fromsubject to subject of eachNewMail
			set newMessage to make new outgoing message with properties {subject:fromsubject, content:"" & return & return}
			tell newMessage
				(* set visible to true
				set sender to fromSender *)
				make new to recipient at end of to recipients with properties {name:"", address:"**********@docomo.ne.jp"}
			end tell
			(* activate *)
			(* send *)
		end repeat
	end tell
end perform_mail_action