<@7> <@> <@>登録確認メール送信 <@> <$h = new> <$h.to = argv#0> <$h.from = Diary.mail_post_address> <$h.replay_to = Diary.mail_post_address> <$h.from_name = Server_name> <$h.subject = '投稿エラー'> <$h.text = argv#1)> <$ifexec(Message, begin)> <$h.text .= "\n" . join("\n", Message)> <$end> <$m = loadpm('Base::Mail')> <$r = m.send_mail(h)> <$ifmessage(r, 'メール送信エラー')>