<@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 = begin_string> 書き込みに成功しました <$end> <$m = loadpm('Base::Mail')> <$r = m.send_mail(h)> <$ifmessage(r, 'メール送信エラー')>