<@7> <@> <@>登録確認メール送信 <@> <$h = new> <$h.to = argv#0> <$h.from = Diary.mail_post_address> <$h.reply_to = Diary.mail_post_address> <$h.from_name = Server_name || ENV.SERVER_NAME> <$h.subject = '投稿成功'> <$h.text = begin_string> 書き込みに成功しました <$end> <$m = loadpm('Base::Mail')> <$r = m.send_mail(h)> <$ifmessage(r, 'メール送信エラー')>